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

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.