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

n=4, m=12363 Сумма будет равна 14

При n=13468 и m=4 Результат будет 21

var  m, n, sum, z: integer;beginwriteln('Введите числа 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.