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