Đề 1:

program de1;
uses crt;
var n:integer;
Begin
    clrscr;
    write('n = ');readln(n);
    if n mod 2=0 then write('n la so chan')
    else write('n la so le');
    readln
End.

Đề 2:

program de2;
uses crt;
var m,n:integer;
Begin
    clrscr;
    write('m = ');readln(m);
    write('n = ');readln(n);
    if m>n then write('m lon hon n')
    else write('m nho hon n');
    readln
End.

Đề 3:

program de3;
uses crt;
var a:integer;
Begin
    clrscr;
    write('a = ');readln(a);
    if a>=0 then write('a la so duong')
    else write('a la so am');
    readln
End.

Đề 4:

program de4;
uses crt;
var An,Binh:integer;
Begin
    clrscr;
    write('Chieu cao cua An (cm): ');readln(An);
    write('Chieu cao cua Binh (cm): ');readln(Binh);
    if An>Binh then write('An cao hon Binh')
    else write('Binh cao hon An');
    if An=Binh then write('An va Binh cao bang nhau');
    readln
End.