[Aristarh Dark]

Код:

var
  a,b,i:integer;
  s:string;
begin
  b:=0;
  a:=1000;
  s:=IntToStr(a);
  for i:=1 to Length(s) do
    b:=b+sqr(StrToInt(s[i]));
end;