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

без остатка нет

25: 2=12+1 клетка в остатке

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

думаю, что 19,5 кб = 0,019 мб.

v=331+ 0,6*t

в зимний день- v=331+ 0.6*(-35)=310 м/с

в летний день-   v=331+ 0.6*30=349 м/с