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

2013-01-24T21:39:01+04:00

var

 x,S:Extended;

i:longint;

begin

 For i:=1 to 5 do begin Read(x); S:=S+x; end;

Write(S/5);

end.