Program laba_1;

{$APPTYPE CONSOLE}

var
   deg1, deg2, deg3 : real;
   IsCorrect : boolean;
begin
   writeln ('введите значение углов');
   repeat
     try
         IsCorrect:= TRUE;
          readln (deg1);
          if (deg1<0) or (deg1>180) then
          begin
            IsCorrect:= FALSE;
            writeln('Введите корректное значение (от 1 до 180):');
          end;
     except
          IsCorrect:= FALSE;
          writeln ('Введите корректное значение');
     end

   until IsCorrect;
    repeat
     try
         IsCorrect:= TRUE;
          readln (deg2);
          if (deg2<0) or (deg2>180) then
          begin
            IsCorrect:= FALSE;
            writeln('Введите корректное значение (от 1 до 180):');
          end;
     except
             IsCorrect:= FALSE;
             writeln ('Введите корректное значение');
     end

   until IsCorrect;
    repeat
     try
         IsCorrect:= TRUE;
          readln (deg3);
          if (deg3<0) or (deg3>180) then
          begin
            IsCorrect:= FALSE;
            writeln('Введите корректное значение (от 1 до 180):');
          end;
     except
             IsCorrect:= FALSE;
             writeln ('Введите корректное значение');
      end

   until IsCorrect;
   if (deg1+deg2+deg3=180)  then
   begin
      if (deg1=deg2) or (deg1=deg3) or (deg2=deg3) then
       writeln ('Треугольник равнобедренный')
   else writeln ('Треугольник не равнобедренный');
   end
   else
    writeln ('Треугольник не существует');
   readln
end.