X, y,z- последовательные целые числа
Найти x, y,z арифметическое среднее

Var x,y,z:integer;

sr:real;

begin

read(x,y,z);

sr:=(x+y+z)/3;

writeln(sr:2:1);

end.

14-6=8 (яблок)- во второй посылке.

обратная :

во второй посылке было 8 яблок,всего 14 яблок. сколько яблок в первой посылке?

решение:

14-8=6 (яблок)-во второй посылке.

вроде бы так.