Даны три отрезка со сторонами a, b, c. Выяснить можно ли построить треугольник с данными сторонами, если - да, то переменной y присвоить значение 1, иначе - 0.

Из математики:

треугольник существует тогда и только тогда, когда длина одной стороны не превосходит суммы длин двух других сторон (неравенство треугольника). Т. е. необходимо провести три сравнения:

program qq;

uses crt;

var a, b, c, p: integer;

begin

p:=0; / / обнуляем переменную

writeln ('Введите через пробел значения a, b и с') ;

readln (a, b, c) ;

if a< = (b+c) then

if b< = (a+c) then

if c< = (b+a) then

p:=1; / / если все условия

//выполнены то треугольник

//существует. присваиваем переменной значение 1.

writeln (p) ;

end.