Напечатать четные, натуральные числа , не превышающие N.N ввести с клавиатуры. Программа в паскаль.

program raf105;

var i,n: integer;

begin

write('Введите N: ');

readln(n);

for i:=1 to n do

 if i mod 2 = 0

   then writeln(i);

end.