Если на паскале, то так:
var a,b:integer;
S,c:real.
begin
Writeln('Введите длины катетов');
Readln(a, b);
c:=sqrt(sqr(a)+sqr(b));
S:=(a*b)/2;
Writeln('Гипотенуза:', c:0:2, 'Площадь:', S:0:3);
end.
Здесь с - гипотенуза, а S - площадь.
Если на паскале, то так:
var a,b:integer;
S,c:real.
begin
Writeln('Введите длины катетов');
Readln(a, b);
c:=sqrt(sqr(a)+sqr(b));
S:=(a*b)/2;
Writeln('Гипотенуза:', c:0:2, 'Площадь:', S:0:3);
end.
Здесь с - гипотенуза, а S - площадь.