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

program zadaca;vara,b,c:integer;d:real;beginreadln(a,b,c);if (a<>0)and(b<>0)and(c<>0) thend:=(a+b+c)/3;write(d);end.