В компьютер вводятся три числа. Проверить принадлежат ли эти числа диапазону (-7;7 Если условие выполняется, то найти сумму введенных чисел, иначе вывести на экран соответствующее сообщение. турбо Паскаль

program Chernovik;

var a,b,c: integer;

begin

read(a,b,c);

if ((a>-7) and (a<7)) and ((b>-7) and (b<7)) and ((c>-7) and (c<7)) then write (a+b+c)

else write (((a>-7) and (a<7)) and ((b>-7) and (b<7)) and ((c>-7) and (c<7)))

end.

Объяснение:

Вводим числа

Проверяем условие, если условие истинно выводим сумму, иначе выводим, что условие ложное