Đề lẻ
Program Hotboy;
Uses crt;
Var x:integer;
Begin
Write('nhap so nguyen x');
Readln(x);
If x>100 then write (x,'vua nhap hop le')
Else
Write(x,'vua nhap khong hop le');
Readln
End.
Đề chẵn
Program Hotboy;
Uses crt;
Var n:integer;
Begin
Write('nhap so nguyen n');
Readln(n);
If n>0 then write (n,'vua nhap la so duong')
Else
Write(n,'vua nhap la so am');
Readln
End.
