Дано натуральное число. определить сумму квадратов его цифр паскаль цмкл while

Question

Дано натуральное число. определить сумму квадратов его цифр паскаль цмкл while

Answer 1

var a,b,s: integer;
begin
readln(a);
while a>=10 do
begin
b:=a mod 10;
s:=s+sqr(b);
a:=a div 10;
end;
a:=a*a;
s:=s+a;
writeln(s);
readln;

end.
В s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!