Program zad11a;
Var
a,b,s:real ;
Begin
writeln('введите катет a ');
readln (a);
writeln('введите катет b');
readln (b);
s:=(a*b)/2;
writeln('Площадь =',s:0:0);
end.

Program zad11b;
Var
c,a,b:real ;
Begin
writeln('введите катет a ');
readln (a);
writeln('введите катет b');
readln (b);
c:=sqrt((a*a)+(b*b));
writeln('Гипотенуза =',c:0:2);
end.

Program zad11c;
Var
c,a,b:real ;
Begin
writeln('введите катет a ');
readln (a);
writeln('введите гипотенузу  c');
readln (c);
b:=sqrt((c*c)-(a*a));
writeln('катет =',b:0:2);
end.