Напишите на паскаль. 1. вывести все четные числа от 0 до n (n вводится с клавиатуры)

Var i,N:integer;
begin
readln(N);
for i:=1 to N do begin
if (i mod 2= 0)
then
write(i,' ');
end;
end.