Viết chương trình nhập vào 1 số nguyên in ra màn hình các số chẵn từ 0 đến N

var i,n,d: integer;

begin

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

d:=0;

for i:=1 to n do if i mod 2=0 then d:=d+1;

writeln('Co ',d,' so chan tu 1 den n');

write('Cac so chan do la : ');

for i:=1 to n do if i mod 2=0 then write(i,' ');

readln

end.

ues crt;

{khai bao' thu vien crt}

var n,i,dem:integer;

BEGIN clrscr;

{ cau lenh xoa man hinh};

wirte('Nhap n: ');

readln(n);

dem:=0;

for i:=1 to n do begin if i mod 2=0 then begin write(i:4); dem:=dem+1;

end;

if dem=15 then begin dem:=0

writeln:

{in duoc 15 so thi xuong dong};

end;

end;

readln END.