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

program prTreug;

var a,b,y, P: real;

begin

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

read (a,b);

if (alt;=0) or (blt;=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.