Дано: fori:=1to58do

При первом выполнении тела цикла i=​

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

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

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

64*48*12*8=294,912- обьем в байтах 1 стр

как правильно пишется триугольник или треугольник?

  треугольник

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.