написать реализующую алгоритм программу на языке паскаль. Даны натуральные числа n и m. Получить сумму m последних цифр числа n. Числа n и m задаются пользователем

var
  m, n, sum, z: integer;

begin
writeln('Введите числа n и m');
readln(n);
readln(m);
while (n>0) and (m>0) do begin
  z:=n mod 10;
  sum:=sum+z;
  n:=n div 10;
  dec(m);
end;
  writeln('сумма последних цифр ', sum);
  if (m>=0) and (n=0) then
     writeln('найдена сумма всех цифр');
end.