program triangle;
var
  a,b,c : real;
begin
  writeln('Программа выясняет, существует ли треугольник '+
  'с указанными длинами сторон');
  repeat
  write('Введите длины сторон треугольника ');
  readln(a,b,c);
  if ((a<=0)or(b<=0)or(c<=0)) then
  writeln('Ошибка! Длины сторон не могут быть нулевыми или '+
  'отрицательными. Повторите ввод.');
  until (a>0)and(b>0);
  write('Треугольник со сторонами ',a:6:2,', ',b:6:2,', ',c:6:2);
  if (a<(b+c))and(b<(a+c))and(c<(a+b)) then
  writeln(' существует')
  else
  writeln(' невозможен');
  readln;
end.

---