Program bailam;

Uses crt;

Var a,b,c:integer;

Begin

Clrscr;

Write('Nhap do dai 2 canh goc vuong:'); 

Readln(a,b);

Writeln('Dien tich cua tam giac vuong la:',a*b/2);

c:=sqrt(sqr(a)+sqr(b));

Writeln('Chu vi cua tam giac vuong la:',a+b+c);

readln

end.

program tam_giac;

uses crt;

var a,b,S,cv:real;

Begin

       clrscr;

       write('a = '); readln(a);

       write('b = '); readln(b);

       S:=a*b/2;

       cv:=a+b+sqrt(a*a+b*b);

       writeln('Dien tich tam giac vuong = ',S:2:2);

       writeln('Chu vi tam giac vuong = ',cv:2:2);

       readln

End.