Написать код на паскаль Чтобы подсчитывал средний по оценкаи Пример Водишь оценки 54345 и выдает средний

program E9;

var

 a, sr, sra: real;

 i, n:integer;

begin

 a:=0;

 writeln('Введите кол-во оценок:');

 readln(n);

 for i:=1 to n do begin

 writeln('Введите оценку:');

 readln(a);

 sra:=sra+a;

 end;

 sr:=sra/n;

 writeln('Среднее знач = ',sr);

end.

Объяснение:

Просто скопируй и вставь код