Plugin Var a,b,c:integer;
begin
readln(a,b,c);
if (a+b+c=180) and ((a=90) or (b=90) or (c=90))
then writeln('Это углы прямоугольного треугольника')
else writeln('Это не углы прямоугольного треугольника');
end.

Помог ставь "Лучший ответ"