Найти сумму квадратов цифр целого числа. Pascal ABC

[lyulka]

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

[Zer0]

var n,sum:integer;
begin
readln(n);
sum:=0;
while n>0 do begin
sum:=sum+sqr(n mod 10);
n:=n div 10;
end;
writeln (sum);
end.

пожалуйста)