Bài 1 
Begin 
write ("Nhap so nguyen a = "); readln(a); 
write ("Nhap so nguyen b = "); readln(b); 
write ("Nhap so nguyen c = "); readln(c); 
max:=a; 
if max < b then max:=b; 
if max < c then max:=c; 
writeln ("So lon nhat trong 3 so la :",max); 
min:=a; 
if min>b then min:=b; 
if min>c then min:=c; 
writeln ("So lon nhot trong 3 so la :",min); 
readln; 
End. 
Bài 2: Tương tự bài 1 nhưng khi khai báo biến thì chọn kiểu real chứ ko phải integer 
Bài 3: Bài này chú ý các biến x phải để ở kiểu số thực 
Program PTB2; 
Var 
a,b,c:Integer; 
Delta,x,x1,x2:Real; 
Begin 
Writeln('GIAI PHUONG TRINH BAC 2'); 
Writeln('-----------------------'); 
Write('-Nhap he so a= '); 
Readln(a); 
Write('-Nhap he so b= '); 
Readln(b); 
Write('-Nhap he so c= '); 
Readln(c); 
Delta:=sqr(b)-4*a*c; 
If Delta < 0 Then 
Writeln('+Phuong trinh vo nghiem') 
Else 
If Delta=0 Then 
Begin 
X:=-b/2*a; 
Writeln('+Phuong trinh co 2 nghiem bang nhau X1=X2= ',X:6:2); 
End 
Else 
Begin 
X1:=-b-Sqrt(Delta)/2*a; 
X2:=-b+Sqrt(Delta)/2*a; 
Writeln('+Nghiem thu nhat = ',X1:6:2); 
Writeln('+Nghiem thu hai = ',X2:6:2); 
End; 
Writeln; 
Writeln(' Bam phim <Enter> de ket thuc'); 
Readln 
End. 
Bài 4: Bài này thì rất dễ mình làm đoạn thân chính thôi nhé 
if n mod 4 = 0 then write ("Day la nam nhuan") 
else write ("Day khong phai nam nhuan"); 
Bài 5 : 
Var a , b , c : Real ; 
BEGIN 
Writeln (' Nhap do dai 3 canh cua tam giac : ') ; 
Write (' a = ') ; Readln ( a ) ; 
Write (' b = ') ; Readln ( b ) ; 
Write (' c = ') ; Readln ( c ) ; 
If ( a + b > c ) and ( b + c > a ) and ( c + a > b ) and ( a > 0 ) and ( b > 0 ) and ( c > 0 ) Then 
Writeln (' Thoa man : Day la 3 canh cua mot tam giac ') 
Else Writeln (' Khong thoa man ! ') ; 
Readln ; 
END. 

1 Viết chương trình nhập vào một số tự nhiên n. In ra man hình n chẵn hay n lẻ.
Bài làm
program chan_le;
uses crt;
var n:interger;
begin
clrscr;
writeln('nhap n'); readln(n);
If n mod 2=0 then writeln('n la so chan')
else writeln('n la so le')
readln;
end.

tính diện tích của tam giác theo công thức hê rôn với ba cạnh a,b,c được nhập từ bàn phím

program bai1;
uses crt;
vả a,b,c:integer;  p,s:real;
begin
clrscr;
write('nhap a:');readln(a);
write('nhap b:');readln(b);
write('nhap c:');readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('dien tich ......);
readln;
end.