Задача на сумму цифр

[Яков Repby]

Вычислить сумму квадрата цифр 5-значного числа.(Дана формула- abcde=a*10000+b*1000+c*100+d*10+c*1 )!

[ОДИНОЧЕСТВО В СЕТИ]

var abcde,a,b,c,d,e,s:integer;
begin
readln(abcde);
e:=abcde mod 10;
d:=abcde mod 100 div 10;
a:=abcde div 10000;
b:=abcde div 1000 mod 10;
c:=abcde div 100 mod 10;
s:=sqr(a)+sqr(b)+sqr(c)+sqr(d)+sqr(e);
writeln('s=',s);
readln;
end.