Помогите создать программку, пожалуйста! Опции

[Ира]

Мне надо создать в Паскале программку, которая будет выводить среднее арифметическое оценок ученика, по которому определяется успеваемость. То есть, если среднее арифметическое - 2, то надо вывести - Плохо. 5 - нормально. 8 - хорошо. 11 - отлично. Через округление.
Помогите, пожалуйста! А то что-то ничего не выходит

[nikitossssss]

Привет друг, вот я постарался написать нужную тебе программу, если чтото не так пиши, постараюсь исправить.
Очень прошу оставить хоть какойто ответ!

program sredorifm;
var
v: string;
i,j,z : integer;
mas : array[1..99] of integer;
begin
writeln('please vvedite kolvo uchenikov');
readln(j);
writeln('please vvediteix ocenki');
for i:=1 to j do
begin
readln(mas[i]);
end;

z:=0;
for i:=1 to j do begin
z:= z + mas[i];
end;

z:=trunc(z/j);

case z of
2: v:='ploxo';
3: v:='udovletvoritelno';
4: v:='xorosho';
5: v:='otlishno';
end;
writeln(v);
readln;

end.