program Bai_1;
uses crt;
var a, b, S: real;
const h = 50;
Begin
clrscr;
write('Nhap do dai day nho (cm): '); readln(a);
write('Nhap do dai day lon (cm): '); readln(b);
S:=(a+b)*h/2;
writeln('Dien tich hinh thang (cm2): ', S:2:4);
readln;
End.
program Bai_2;
uses crt;
var b, P, S: real;
const a = 60;
Begin
clrscr;
write('Nhap do dai chieu rong (cm): '); readln(b);
P:=(a+b)*2; S:=a*b;
writeln('Chu vi hinh chu nhat (cm): ', P:2:4);
writeln('Dien tich hinh chu nhat (cm2): ', S:2:4);
readln;
End.