40 баллов
Построить программу pascal
Вычислить натуральное число N. Вывести на экран все честные числа от 0 до N​

program raf105;

var

 n: integer;

begin

write('n = ');

readln(n);

for n:=0 to n do

 if (n mod 2 = 0) and (n <> 0) then

   write(n,' ');

end.