Программа определения существования треугольника со сторонами а, b и с.

program E4;
  var a, b, с: real;
begin
  writeln ('введите длины трех сторон треугольника ');
  readln (a, b, с);
  write ('треугольник со сторонами ', а, Ь, с);
  if (а + b > с) and (b + с > a) and (а + с > Ь) then
     write ('существует')
  else
     write ('не существует');
  readln
end.