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

Program d;

var a,b,c:integer;

Begin

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

if (a<>0) and (b<>0) and (c<>0) then writeln((a+b+c)/3)

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

Readln;

end.

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

 Удачи!