2. Составить программу, определяющую, существует ли треугольник, длины сторон которого равны a, b и с.

program zz1;

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

begin

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

read (a);

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

read (b);

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

read (c);

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

Then write (' существует ') / / выводим один ответ

else write (' не существует '); / / иначе, выводим другой ответ

END.