Соберите программу на языке паскаль. вывести на экран сумму цифр целого числа 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.

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.