Написать реализующую алгоритм программу на языке паскаль. Даны натуральные числа 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.