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

program zz1;

var a, b, c, y:integer; / / задаем переменные целого типа

begin

write (' введите первую сторону треугольника ');

read (a);

write (' введите вторую сторону треугольника ');

read (b);

write (' введите третью сторону треугольника ');

read (c);

If (a + b > c) and (c + b > a) and (a + c > b) / / проверяем условие существования треугольника с заданными длинами сторон, если треугольник существует, то

Then y:=1 / / переменной присваиваем 1

else y:=0; / / иначе, переменной присваиваем 0

write (' y = ', y);

END.