Đề 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.

Đề lẻ:

program dele;

uses crt;

var x:integer;

begin clrscr;

   writeln('Nhap so x:); readln(x);

  if x>100 then write('So vua nhap la hop le')

                 else write('So vua nhap khong hop le');

readln;

end.

Đề chẵn:

program dechan;

uses crt;

var n:integer;

begin clrscr;

   writeln('Nhap so n:); readln(n);

  if n>0 then write('So vua nhap la so duong')

                 else write('So vua nhap la so am');

readln;

end.

Học tốt!