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

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.   Проверил - все работает. Если возникнут вопросы - пиши в личку.  Удачи!