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

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 это остатки от деления на десять, после цикла прибавляем последнюю цифру, которая меньше десяти, предворительно возведя её в квадрат!