Question

Даны вещественные положительные числа a,b,c. Выяснить, существует ли треугольник со сторонами a,b,c.
(язык Паскаль)

Answer 1

program zadacha;
var
 a,b,c:real;
begin
 read(a,b,c);
 if ((a + b) > c) and ((a + c) > b) and ((c + b) > a) then
   write('yes');
end.

Answer 2

uses crt;
var a,b,c:integer;
begin
     writeln('Введи стороны треугольника:');
     readln(a,b,c);
     if (a+b>c) and (a+c>b) and (b+c>a) then
        writeln('Существует')
     else writeln('Не существует');
end.