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

Формат входных данных
Натуральное число N > 1000

Формат выходных данных
Программа должна вывести число равное квадрату цифр числа N.

Задача сводится к грамотному использованию mod и верному прописанию кода программы.

Текст программы (Паскаль):
uses crt;
var n,sm:longint;
a,k:byte;
begin
clrscr;
write('n=');readln(n);
sm:=0;
while n>0 do {пока число больше 0}
begin
a:=n mod 10;{отделяем последнюю цифру}
k:=a*a;{возводим в квадрат}
sm:=sm+k;{складываем}
n:=n div 10;{берем число без последней цифры и все повторяем, пока число не кончится}
end;
writeln('Summa=',sm);
readln
end.