Дано: writeln (s:6:2); Если s=114,22069, то на экране появится:

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

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

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.

2*3=6

512*128*6=393216

393216: 1024=384кб

var i: integer;

begin

  for i: =1 to 1000 do

      if i mod 2 = 1 then writeln(i*i*i);

end.