Viết chương trình nhập 1 số nguyên dương n in ra màn hình số nguyên dương chẵn từ

Program so_nguyen_chan;

uses crt;

var n,i:integer;

begin

writeln('Nhap n=');readln(n);

For i:=1 to n do

If i mod 2 = 0 then writeln('Cac so chan nho hon n la: ',i);

readln

end.