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