Вычислить сумму квадратов цифр.В Паскале

Предыдущий
вопрос Следующий
вопрос

program SumOfSquaresDigits;

var
num, digit, sum: integer;

begin
sum := 0;

write('Введите число: ');
readln(num);

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

writeln('Сумма квадратов цифр: ', sum);
end.