program Project8;
{$APPTYPE CONSOLE}
label 1;
var A,B,C:real;
begin
1:writeln('Vvedit try storony trykutnyka');
readln(A,B,C);
if (A<=0) or (B<=0) or (C<=0) then begin
writeln('Storona ne isnue');
goto 1;end else
if (A=SQRT(SQR(B)+SQR(C))) OR
(B=SQRT(SQR(C)+SQR(A))) OR
(C=SQRT(SQR(A)+SQR(B))) THEN
WRITELN('Trykutnyk priamokutnuy') ELSE
WRITELN('Trykutnyk ne priamokutnuy');
readln;
end.