Прохання писати розв’язки та наступні умови.

procedure nsd(m,n:integer;var maxmn:integer);
var x:integer;
begin
if n>m then begin x:=n; n:=m; m:=x; end;
while m mod n<>0 do begin
m:=m mod n;
if n>m then begin x:=n; n:=m; m:=x; end;
end;
maxmn:=n;
end;

begin
readln(a,b,c);
nsd(a,b,max);
nsd(c,max,max);
writeln(max);
end.

Program TRIKUTNIK;
uses crt;
var
a,b,c,d,e,f:integer;
begin
clrscr;
writeLn('Введіть довжини сторін трикутника');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln( c );
Write('Трикутник ');
if (a+b>c) and (a+c>b) and (b+c>a) then begin
if (a=b)and(b=c) then write('рівносторонній, ')
else if (a=b)or(a=c)or(b=c)
then write('рівнобедрений, ')
else write('різносторонній, ');
f:=a; d:=b; e:=c;
if f<b then begin
f:=b; d:=a; e:=c;
end;
if f<c then begin
f:=c; d:=b; e:=a;
end;
if sqr(f)>(sqr(d)+sqr(e)) then writeln('тупокутний') else
if sqr(f)<(sqr(d)+sqr(e)) then writeln('гострокутний') else
writeln('прямокутний');
end else writeln('не існує');
readkey;
end.

По кутах і по сторонах - це різні категорії ознак, тому вони описуються окремо.
1) по сторонах
Якщо (a=b) i (a=c) тоді трикутник рівносторонній
якщо (а=b) або (a=c) або (c=b) тоді трикутник рівнобедренний але не рівносторонній
якщо (а<>b) i (a<>c) i (c<>b) тоді трикутник різносторонній (хоча можна методом виключення через інакше)
2) по кутах
якщо (а1=b1+с1) або (b1=c1+a1) або (c1=a1+b1) тоді трикутник прямокутний
якщо (а1>b1+с1) або (b1>c1+a1) або (c1>a1+b1) тоді трикутник тупокутний
якщо (а1<b1+с1) i (b1<c1+a1) i (c1<a1+b1) тоді трикутник гострокутний (хоча також можна методом виключення через інакше)
Де a1, b1, c1 квадрати відповідних сторін

У результаті має вийти, або повідомлення що трикутник не існує. Або ж пара характеристик, одна по кутах, інша по сторонах.
У мене у школі є ця задача дуже красиво написана, лінь ще раз писати. Завтра скину.

Давайте ускладнимо задачу.
У вхідному файлі в першому рядку знаходиться число N<=1000, а в решті N рядків трійка цілих чисел, що по модулю не перевищують 175.
У вихідному файлі повинно міститися N рядків, у кожному з них надрукований певний прапор ознак по даному правилу.
Якщо з даної трійки чисел трикутник не можливо скласти - NO;
В іншому випадку комбінація двох ознак по сторонах і по кутах:
Рівносторонній - S
Рівнобедрений (не рівносторонній) - B
Різносторонній - Z
та
Прямокутний - P
Тупокутний - T
Гострокутний - G
Наприклад:
tryk.dat
3
1 2 3
5 5 5
3 4 5
tryk.sol
NO
SG
ZP

begin
readln(a,b,c);
nsd(a,b,max);
nsd(c,max,max);
writeln(max);
end.