hình tam giác:
program dientichhinhtamgiac;
uses crt;
var a,h,Stamgiac: integer;
begin
write(' nhap do dai canh day:'); read(a);
write(' nhap do dai duong cao:'); read(h);
Stamgiac:=0;
if a<>0 and h<>0 then
write(' dien tich hinh tam giac la: ',Stamgiac:=(a*h)/2);
else
write(' so vua nhap khong hop le ');
readln;
End.

hình chữ nhật
program dientichhinhchunhat;
uses crt;
var a,b,Schunhat: integer;
begin
write(' nhap do dai chieu dai:'); read(a);
write(' nhap do dai chieu rong:'); read(b);
Schunhat:=0;
if a<>0 and b<>0 then
write(' dien tich hinh chu nhat la: ',Schunhat:=a*b);
else
write(' so vua nhap khong hop le ');
readln;
End.