Nhập vào số nguyên n in ra màn hình các số chẵn

Program Hotboy;

Uses crt;

var n,i:integer

Begin

Clrscr;

Write(‘Nhap so n tu ban phim :’);

Readln(n);

 For i:=1 to n do

        If (i mod 2=0 ) then Write(‘cac so chan la’,i,’ ‘);

        Else

    Write(‘cac so le la’,i);

Readln

End.

Xin hay nhất