Составьте программу, которая запрашивает три целых числа и, если ни одно из чисел не равно нулю, выводит на экран их среднее арифметическое.

Program d;

var a, b, c:integer;

Begin

Writeln ('введите 3 целых числа через пробел') ; Read (a, b, c) ;

if (a0) and (b0) and (c0) then writeln ((a+b+c) / 3)

else writeln ('одно из чисел равно нулю') ;

Readln;

end.

Проверил - все работает. Если возникнут вопросы - пиши в личку.

Удачи!