{* Задача 327 *}

Unit ZADACH327;
Interface
Implementation
Begin
 writeln('Определить вид треугольника по трем заданным сторонам. ');
End.

Program zadach327;

Uses zadach327.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  a : integer;
  b : integer;
  c : integer;
Begin
  clrscr; {* Очистка экрана *}
  write(‘сторона а = ’);
  readln(a);
  write(‘сторона b = ’);
  readln(b);
  write(‘сторона c = ’);
  readln(c);
  If (a + b > c) And (c + b > a) And (a + c > b) Then
  Begin
    If (a = b) Or (b = c) Or (a = c) Then
    Begin
      If (a = b) And (b = c) Then
        write('Треугольник равносторонний')
      Else write('Треугольник равнобедренный')
    End;
    Else write('Треугольник прямоугольный')
  End;
  Else write('такой треугольник не существует!!!!');
    readln; {* Ждем нажатия Enter *}
End.