program task1;
var first,second,third:integer;
    chek1,chek2,chek3:boolean;
begin
  chek1:=false;
  chek2:=false;
  chek3:=false;
  repeat
     try
        writeln('Введите правильно первое число(целое,положительное)');
        read(first);
        if (first > 0)then
          chek1:=true;
     except
        chek1:=false;
        writeln('это не число!');
     end;
  until(chek1);
  repeat
     try
        writeln('Введите правильно второе число(целое,положительное)');
        read(second);
        if (second > 0)then
          chek2:=true;
     except
        chek2:=false;
        writeln('это не число!');
     end;
  until(chek2);
  repeat
     try
        writeln('Введите правильно третье число(целое,положительное)');
        read(third);
        if (third > 0)then
          chek3:=true;
     except
        chek3:=false;
        writeln('это не число!');
     end;
  until(chek3);
  if (((first + second) > third) and ((first + third) > second) and ((second + third) > first))then
  begin
     writeln('отлично!треугольник существует и он:');
     if ((first <> second) and (first <> third) and (second <> third)) then
        write('разносторонний')
     else
        write(' НЕразносторонний');
  end
  else
    writeln('треугольник не существует!')
end.