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

на Паскале вот:
var a, b, c: integer;
begin
write('Введите три целых числа: ');
readln(a, b, c)
ifa<>0 and b<>0 and c<>0 then
writeln('Среднее арифметическое введенных чисел равно ', (a+b+c)/3:2:2)
else writeln('одно из чисел равно нулю, работа программы завершена');
end.