Câu 2:
uses crt;
var a, b: real;
begin
clrscr;
write ('Nhap so thu nhat:'); readln (a);
write ('Nhap so thu hai:'); readln (b);
if (a >b) then write ('So ',a,' lon hon') else write ('So ',b,' lon hon');
readln;
end. 

Câu 3: Viết chuong trình nhập vào 2 số và in ra theo thứ tự tăng dần
program bt3;
uses crt;
var a, b: real;
begin
clrscr;
write ('Nhap a ='); readln (a);
write ('Nhap b ='); readln (b);
if (a >b) then write (a,' ',b) else write (b,' ', a);
readln;
end.

Câu 4: 
program tam_giac_deu;
uses crt;
var x, y, z: real;
begin
clrscr;
write ('Nhap canh thu nhat:'); readln (x);
write ('Nhap canh thu hai:'); readln (y);
write ('Nhap canh thu ba:'); readln (z);
if (x = y = z) then write ('Tam giac nay la tam giac deu') else write ('Tam giac nay khong phai la tam giac deu');
readln;
end. 

Câu 5: 
uses crt;
var a, b, thuong: integer;
begin
clrscr;
write ('Nhap so thu nhat ='); readln (a);
write ('Nhap so thu hai ='); readln (b);
​thuong := a/b;
write ('Ket qua cua a chia b la:', thuong);
readln;
end.