Знатоки информатики ..1 и 2 задание в столбикахничего не получается

k= 11

k= - 9

Объяснение:

var

 k, i :integer;

 part : double;

begin

 k := 1;

 for i := 1 to 5 do begin

   k := k+2;

   writeln('i=',i,'  k=', k);

 end;

writeln('--------------------');

 k := 1;

 for i:= 5 downto 1  do begin

  k := k-2;

   writeln('i=', i,'  k=',k);

 end;

end.