Bài 1:
uses crt;
var a, b, S: real;
Begin
clrscr;
write('Nhap do dai day nho: '); readln(a);
write('Nhap do dai day lon: '); readln(b);
S:=(a+b)*50/2;
writeln('Dien tich hinh thang la: ', S:3:3);
readln;
End.
Bài 2:
uses crt;
var b, P, S: real;
Begin
clrscr;
write('Nhap chieu rong hinh chu nhat: '); readln(b);
P:=(6+b)*2; S:=6*b;
writeln('Chu vi hinh chu nhat la: ', P:3:3);
writeln('Dien tich hinh chu nhat la: ', S:3:3);
readln;
End.