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

program ex60;
Uses Crt;
var
m, i, tmp: integer;
n: longint;
BEGIN
ClrScr;
write('Введите m: ');
readln(m);
write('Введите n: ');
readln(n);
if m<=n then
begin
for i:=1 to m do {подсчитывем сумму последних m цифр}
begin
tmp:=tmp+(n mod 10); {tmp - сумма}
n:=n div 10; {убираем последнюю цифру}
end;
writeln(tmp);
end;
readLn;
END.