СРОЧНО!!!! ПОжалуйста!!! вводится 3 числа. найдите среднее из них!

1

Ответы и объяснения

2013-05-01T20:36:54+04:00

program abc;

var

  x,y,z,a:integer;

begin

  Writeln('введите 3 числа');

  Readln(x);

  Readln(y);

  Readln(z);

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

Writeln(a);

end.