Ответ:

var

a,sum,sr:real;

i:integer;

begin

sum:=0;

for i:=1 to 6 do

begin

writeln('введи число');

read (a);

sum:=sum+a;

end;

sr:=sum/6;

writeln('среднее арефмитическое равно',sr);

end.

Объяснение:

хорошего дня