1.
program ctpt;
uses crt;
var a, h, S: real;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap h = '); readln(h);
S:=a*h/2;
writeln('Dien tich tam giac la: ', S:2:1);
readln
end.
2.
program ctpt;
uses crt;
var r, c: real;
begin
clrscr;
write('Nhap r = '); readln(r);
c:=2*r*pi;
writeln('Dien tich hinh tron la: ', c:2:1);
readln
end.
3.
program ctpt;
uses crt;
var
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
if a>b then write(a) else
if a<b then write(b) else
write('Hai so ban vua nhap bang nhau');
readln
end.
