Дано число р. Если данное число больше нуля то его увеличь в t раз. Если данное меньше нуля то прибавь к нему число k если данное число равно нулю то уменьши его на величину z.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

1)никакие художники не могут повторить замечательный стиль рисования известного художник маковского

2)все великие писатели в своё время переносили критику,но это делало их только сильнее.

дальше не придумал

(с уважением tipaeinstein) 

l*pi*((r+a)^2- (r)^2)*p

p - плотность

var i: integer;

begin

  i: =16;

  repeat

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

        i: =i+1;

  until i> 24

end.