Program CVDT;
Uses crt;
Var a,b,c,d,e: real; k:byte;
Begin
Clrscr;
Write('Nhap k (1-2): '); Readln(k);
If k=1 then
Begin
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);
Writeln;
Write('Dien tich la: ',(a+b)*e/2:5:2);
End
Else
Begin
Write('Nhap do dai ban kinh: '); Readln(a);
Write('Chu vi la: ',a*2*3.14:5:2);
Writeln;
Write('Dien tich la: ',a*a*3.14:5:2);
End;
Readln
End.