Вывод на экран четного числа.

Способ 1: 

Var i,n: integer;

begin

writeln('Введите число');

readln(n);

i:= 1;

while i<=n do

If i mod 2=0 then

begin

writeln(i);

i:= i+1;

end;

readln;

end.

Способ 2:

Var n,i:integer;

Begin

Readln(n);

For i:= 1 to n do

If i mod 2=0 then

writeln(i);

Readln;

End. 

Способ 3:

Var i,n: integer;

begin

writeln('Введите число');

readln(n);

i:= 1;

repeat

If i mod 2=0 then

begin

writeln(i);

i:= i+1;

end;

until

i=n;

readln;

end.