Помогите написать программу на ПАСКАЛЕ:
даны 3 числа в порядке возрастания-стороны треугольника, вывести сообщение «этот треугольник прямоугольный»

ПОМОГИТЕ ПОЖАЛУЙСТА
РЕШАЕТСЯ ПОЛУГОДОВАЯ
46 баллов

var a,b,c: integer;begin writeln ('введите стороны прямоугольника');readln(a,b,c);if a*a+b*b=c*c then writeln ('этот треугольник прямоугольный') else writeln ('этот треугольник не прямоугольный');end.

вот довел полностью до конца

закинул в паскаль, где-то ошибка

Исправил, не хватило begin-end (ох уж этот паскаль)

Да, понимаю тебя)

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.