var a,b,c: integer;

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

readln(a,b,c);

if a*a+b*b=c*c than writeln ('этот треугольник прямоугольный') else writeln ('этот треугольник не прямоугольный');

end.

label ra,rb;

var a,b,c: integer;

begin

write('Введите сторону a: ');

readln(a);

ra: write('Введите сторону b: ');

readln(b);

if b>a then

begin

rb: write('Введите сторону c: ');

readln(c);

if c>b then begin

if sqr(c)=sqr(a)+sqr(b) then writeln('Этот треугольник - прямоугольный') else writeln('Этот треугольник - не прямоугольный');

end else begin writeln('Введите число больше, чем ',b); goto rb; end;

end else begin writeln('Введите число больше, чем ',a); goto ra; end;

end.