PascalABCDNET Известны катеты прямоугольного треугольника, найти его периметр и площадь,определить является ли треугольник равнобедренныи или равносторонним.

Прямоугольный треугольник не может быть равносторонним, если что

var a,b,c,P,S:real;

begin

readln(a,b);

c:=Sqrt(Sqr(a)+Sqr(b));

P:=a+b+c;

writeln(P);

S:=a*b/2;

writeln(S);

if a=b then writeln('треугольник равнобедренный')

end.

Объяснение: