Паскаль.Загвостка в решении задачи с прямоугольным треугольником.

[naty7773]

Даны числа а,в,с.Обозначающие стороны.Выяснить является ли треугольник прямоугольным.И если он прямоугольный,вывести в порядке возрастания стороны и вычислить площадь.Иначе,программа должна выдавать что треуг. не прямоугольный и заканчивать работу.
У меня прога работает,но не так.Прикрепила бы ее вам проверить,но нет инета,сижу с телефона.Помогите решить задачу.((

[Zer0]

Изначально отсортировать стороны по возрастанию, затем проверить - если сумма квадратов первых двух равна квадрату третьей - то треугольник прямоугольный, и можно сразу выводить эти три стороны в этом же порядке, а площадь будет равна произведению первых двух сторон деленному пополам

[Aranea tela telam]

program Pr15;
var a, b, c, k: real;
BEGIN
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
if c*c=(b*b+a*a) then
begin
if b < a then
begin
k:= a;
a:= b;
b:= k
end;
if c < a then
begin
k:= a;
a:= c;
c:= k
end;
if c < b then
begin
k:= b;
b:= c;
c:= k
end;
writeln('стороны ',a, ', ', b, ', ', c);
writeln('Площадь ',(a+b)/2);
end
else
writeln('не прямоугольный');
END.

[naty7773]

Спасибо вам большое!Поняла свою ошибку.Запуталась с бегинами.

[Zer0]

Aranea tela telam, хорошо, я ввожу числа 5,3,4 (это прямоугольный треугольник с гипотенузой = 5)
Ваша программа напишет что треугольник "не прямоугольный"
"Сортировка" выглядит кривой, но сколько примеров не проверял - вроде сортирует правильно
По уму нужно сначала сортировать, а потом уже сравнивать через формулу (как я выше и писал), но как вариант можно просто добавить условия для других возможных вариантов (где гипотенузой является не c, а b или a)