program HelloWorld;
var n: double;
var i,c,summ: integer;
begin
for i:=1 to 7 do
writeln('Введите оценку:');
readln(c);
summ := summ + c;
end;
writeln(summ/c:15:2);
end.
program HelloWorld;
var n: double;
var i,c,summ: integer;
begin
for i:=1 to 7 do
begin
writeln('Введите оценку:');
readln(c);
summ := summ + c;
end;
writeln('Введите оценку:');
writeln(summ/c:15:2);
end.