Viết chương trình yêu cầu nhập một số nguyên từ bàn phím. Xuất ra màn hình các số chẵn dương nhỏ hơn hoặc bằng số vừa nhập ( giúp mình với????????)

program sochanduong;

var n,i:integer;

begin

clrscr;

write(‘Nhap n: ‘);   readln(n);

if n<2 then write(‘Khong co’)

else

 begin

  write(‘Cac so chan duong la: ‘);

  for i:=1 to n do

   if i mod 2=0 then write(i,’ ‘);

 end;

readln

end.