Даны естественные числа n и m. Составьте программу, которая вычисляет сумму

program zz1;

var n, m, s, b:integer; // задаем переменные целого типа

i:integer;

begin

write( введите 1-ое данное число m );  // вводим с клавиатуры первое число

read(m);  

write( введите 2-ое данное число n );  // вводим с клавиатуры 2-ое число

read(n);

for i:= 1 to m do // организуем цикл на m повторений

begin

b:=n mod 10; // получаем заключительную цифру числа

s:=s + b; // добавляем ее к сумме

n:=n div 10; // отбрасываем ее из числа

end;

write(  сумма заключительных m цифр числа n = , s); // выводим ответ

end.