Задано натуральное число n. Вычислить сумму квадратов цифр заданного числа.
Pascal.

Var   n,S:integer;BeginWrite('n = ');ReadLn(n);S:=0;While n > 0 do   Begin   S:=S+Sqr(n mod 10);   n:=n div 10   End;WriteLn('S = ',S);End.