Дано натуральное число.Определить сумму квадратов его цифр- Pascal (Паскаль)-CF

var
  Chislo, Summa: Longint;
begin
  write('Число: ');
  readln(Chislo);
  while Chislo > 0 do
  begin
    Summa:=Summa+sqr(Chislo mod 10);
    Chislo:=Chislo div 10;
  end;
  writeln('Сумма квадратов цифр числа: ', Summa);
end.