*Viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng 100:
Program Tim_so_chan;
uses crt;
var i,n:integer;
Begin
clrscr;
Write('Nhap so n: '); Readln(n);
For i:=1 to 100 do
If i mod 2=0 then Write('Cac so chan nho hon hoac bang 100 la: ',i);
Readln
End.
*Viết chương trình in ra màn hình các số nhỏ hơn hoặc bằng 100
Program Tim_so_le;
uses crt;
var i,n:integer;
Begin
clrscr;
Write('Nhap so n: '); Readln(n);
For i:=1 to 100 do
If i mod 2<>0 then Write('Cac so le nho hon hoac bang 100 la: ',i);
Readln
End.