uses crt;
var hinh:string;
    a,b,c,d,h:integer;
begin
 clrscr;
 writeln('Luu y: Hinh vuong la hv, Hinh chu nhat la hcn, Tam giac la tg, Hinh thoi la ht, Hinh binh hanh la hbh');
 write('Nhap ten hinh: '); readln(hinh);
 if hinh='hv' then
  begin
   write('Nhap canh: '); readln(a);
   writeln('Chi vi la: ',a*4);
   writeln('Dien tich la: ',a*a);
  end;
 if hinh='hcn' then
  begin
   write('Nhap chieu dai: '); readln(a);
   write('Nhap chieu rong: '); readln(b);
   writeln('Chu vi la: ',(a+b)*2);
   write('Dien tich la: ',a*b);
  end;
 if hinh='tg' then
  begin
   write('Nhap canh thu 1: '); readln(a);
   write('Nhap canh thu 2: '); readln(b);
   write('Nhap canh thu 3: '); readln(c);
   write('Nhap day: '); readln(d);
   write('Nhap duong cao: '); readln(h);
   writeln('Chu vi la: ',a+b+c);
   write('Dien tich la: ',d*h/2:0:4);
  end;
 if hinh='ht' then
  begin
   write('Nhap canh 1: '); readln(a);
   write('Nhap duong cheo 1: '); readln(d);
   write('Nhap duong cheo 2: '); readln(h);
   writeln('Chu vi la: ',a*4);
   write('Dien tich la: ',d*h/2:0:4);
  end;
 if hinh='hbh' then
  begin
   write('Nhap canh 1: '); readln(a);
   write('Nhap canh 2: '); readln(b);
   write('Nhap day: '); readln(d);
   write('Nhap duong cao: '); readln(h);
   writeln('Chu vi la: ',(a+b)*2);
   write('Dien tich la: ',d*h);
  end;
 readln
end.

Program Hotboy;

Uses crt;

Var a,b,d,e,s,cv: real;

Hinh : byte ; 

Begin 

Clrscr; 

Write('He thong tinh chu vi và dien tich cac hinh');

Writeln('Chon mot trong cac so de tinh - so 1 : hinh chu nhat-so 2 : hinh tam giac - so 3- hinh thoi -so 4- hinh binh hanh - so 5: hinh vuong');

Readln(hinh);

Case hinh of 

1: begin

Write('nhap chieu dai') ; readln(a);

Write('nhap chieu rong'); readln(b) ;

S:=a*b;

Write('dien tich hinh chu nhat la',S); readln(S);

Write('chu vi hinh chu nhat la',(a+b)*2);

End; 

2: begin

Write('nhap chieu cao'); readln(a);

Write('nhap do dai canh day'); readln(b);

Write('nhap do dai hai canh ben'); readln(d,e);

S:=1/2*a*b; 

Cv:=b+d+e ;

Writeln('dien tich hinh tam giac la',S,'chu vi hinh tam giac la',Cv); 

 End;

3: begin

Write('nhap do dai 2 duong cheo cua hinh thoi'); readln(a,b);

Write('nhap do dai 1 canh cua hinh thoi'); readln(d);

S:= 1/2*a*b;

Writeln('chu vi cua hinh thoi la',4*d,'Dien tich cua hinh thoi la',S);

End;

4: begin

Write('nhap do dai canh day '); readln(a);

Write('nhap do dai canh ke'); readln(b); 

Write('nhap chieu cao'); readln(d);

S:= a*d; 

Cv:= 2*(a+b); 

Write('chu vu cua hinh binh hanh la',Cv,' dien tich cua hinh binh hanh la ',S);

End; 

5:begin

Write('nhap do dai canh cua hinh vuong') ;

S:= a*a ;

Write('dien tich cua hinh vuong la',S,' chu vi cua hinh vuong la',a*4);

End;

End;

end.