1)повторить 14 раз вывод слова повтор в столбик .
2)вывести на экран все целые числа из диапазона от 200 до 600, оканчивающую на любую четную цифру.
pasca

program Ex1;

var

 i: Integer;

begin

 for i := 1 to 14 do

   WriteLn ('Повтор');

  ReadLn;

end.

- - - - - - - - - - - - - - - - - - - - - - - - - - - -

program Ex2;

var

 i: Integer;

begin

 for i := 200 to 600 do

   if i mod 2 = 0 then

     Write (i, ' ');

 ReadLn;

end.