Question

помогите с информатикой даю 10 баллов​

Answer 1

program prTreug;

var a,b,y, P: real;

begin

writeln ('введите катеты прямоугольного треугольника');

read (a,b);

if (a<=0) or (b<=0) then

writeln ('такого треугольника нет')

else

begin

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

P:= a+b+y;

writeln ('гипотенуза = ',y:6:2);

writeln ('периметр = ',P:6:2);

end;

end.