Нужно написать программу, которая будет находит все чётные числа, не превосходящие число N

var

a,n,i:integer;

Begin

read(n);

For i:= 1 to n do

If i mod 2 = 0 then

writeln(i);

end.

На паскале