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

Viktor

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.

 

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

 Удачи!