Program Typlex271;

Uses crt;

Var a,b,c,d,h: double;

Begin

    Writeln('Nhap lan luot 2 canh ben: '); Readln(a,c);

    Writeln('Nhap lan luot 2 canh day: '); Readln(b,d);

    Writeln('Chu vi: ',a+b+c+d:8:3);

    Writeln('Dien tich: ',(b+d)*h/2:8:3);

    Readln

End. 

#Xin CTLHN, chúc bạn học tốt

Program Baigiai;
Uses Crt;
Var

a,b,c,d,e: real;

 k: byte;
Begin
        Clrscr;
        Write('Nhap k (1-2): '); Readln(k);
        If k=1 then

         Write('Nhap do dai 2 day: '); Readln(a,b);
          Write('Nhap do dai 2 canh ben: '); Readln(c,d);
          Write('Nhap chieu cao: '); Readln(e);
        Write('Chu vi la: ',a+b+c+d:5:2);
        Write('Dien tich la: ',(a+b)*e/2:5:2);
        Readln
End.