var i: integer;
var a : array[1..5] of real;
begin
for i in [1..5] do
begin
write('->');
readln(a[i]);
end;
writeln((a[1]+a[2]+a[3]+a[4]+a[5])/5:0:2);
end.
program dgh;
var
a,b: real;
i: integer;
Begin
b:=0;
for i:=1 to 5 do
begin
Write ('->'); readln (a);
b:=b+a;
end;
write('среднее арифметическое введенной последовательности:');
write (b/5:0:2);
Readln;
end.
