Ответы и объяснения

2013-12-18T12:05:17+00:00
uses crt;
var i,sum:integer;
n:string;
begin
read(n);
for i:=1 to length(n) do
sum:=sum+sqr(strtoint(n[i]));
writeln(sum);
end.