uses crt;
Label goback;
var
a,b,c,ab,bc,ca:integer;
begin
goback:
writeln('Введите градусы углов: ');
write('Угол A: ');read(a);
write('Угол B: ');read(b);
write('Угол C: ');read(c);
if ((a + b + c)>180) then
begin
  writeln('Сумма углов не может быть больше 180 градусов');
  goto goback;
end;
writeln('Введите стороны треугольника: ');
write('Сторона AB: ');read(ab);
write('Сторона BC: ');read(bc);
write('Сторона CA: ');read(ca);
if ((a<90) and (b<90) and (c<90)) then
begin
  writeln('Треугольник остроугольный');
  if ((ab=bc) and (bc=ca) and (ca=ab)) then
  begin
  write(' и равносторонний');
  end;
end;
if ((a>90) or (b>90) or (c>90)) then
begin
  writeln('Треугольник тупоугольный');
  if ((ab=bc) or (bc=ca) or (ca=ab)) then
  begin
    write(' и равнобедренный');
  end;
end;
if ((a=90) or (b=90) or (c=90)) then
begin
  writeln('Треугольник прямоугольный');
  if ((ab=bc) or (bc=ca) or (ca=ab)) then
  begin
    write(' и равнобедренный');
  end;
end;
end.