Соберите программу на языке паскаль. вывести на экран сумму цифр целого числа m> 0

Begin  write('введите целое положительное число m: ');   var m : = readinteger;   assert(m > 0);     var s : = 0;   while m > 0 do  begin    s += m mod 10;     m : = m div 10;   end;     writeln('сумма цифр числа m равна ', s); end.

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

1)это направление куда будут двигаться все обьекты

2)число равное тому сколько раз исполнитель повторит ваш алгоритм