program SumOfSquaresDigits;

var
num, digit, sum: integer;

begin
sum := 0;

write${}^{\prime }Введитечисло{:}^{\prime }$;
readln$num$;

while num <> 0 do
begin
digit := num mod 10;
sum := sum + digit * digit;
num := num div 10;
end;

writeln${}^{\prime }Суммаквадратовцифр{:}^{\prime },sum$;
end.