Паскаль сделать 4, 5 и 6 задание(хотя бы одно) задания в коце листа

4.

program Prog1;

var a, i: integer;

begin

   for i:= 1 to 20 do

      begin

           readln(a);

           writeln(a);

      end;

end.

5

program Prog1;

var i: integer;

begin

   for i:= 50 to 100 do

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

end.

6.

program Prog1;

var i: integer;

begin

   for i:= 50 downto 10 do

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

end.