dimaangel1999 Program z1;var a,b,c,d,P,S:real;
begin
writeln ('Введите стороны треугольника');
readln (a,b,c);
P:=a+b+c;
writeln ('Периметр треугольника=',P);
writeln ('Введите катеты');
readln (a,d);
S:=((a*b)/2);
writeln ('Площадь прямоугольного треугольника=',S);
end.