lab1_1

    Program lab1_1;

    Uses
        SysUtils;
    Var
        A, B, C: Integer;
        IsCorrect: Boolean;
    Begin
       Writeln ('Данная программа проверяет, является ли треугольник
              равнобедренным.');
       Repeat
          IsCorrect := true;
          try
             Writeln(' Введите первую сторону : ');
             Readln(A);
             Writeln('Введите вторую сторону : ');
             Readln(B);
             Writeln('Введите третью сторону : ');
             Readln(C);
          Except
             IsCorrect := false;
          End;
          If (A < 1) or (B < 1) or (C < 1) then
             IsCorrect := false;

          If IsCorrect = false then
             Writeln('Пожалуйста, введите корректные длины сторон
                         треугольника');
       Until (IsCorrect);
       If (A > B + C) or (B > A + C) or (C > A + B) then
       Begin
        Writeln('Треугольник не существует.');
       End;
       Else
          If (A = B) or (B = C) or (A = C) then
              Writeln('Треугольник равнобедренный')
          Else
              Writeln('Треугольник не является равнобедренным');
       Readln;
    end.