Написать программу в ПАСКАЛЬ.
Группа из десяти студентов сдала экзамен по курсу «Информатика». Оценки от 2 до 5.
Составьте программу, которая бы выводила на экран таблицу, содержащую эти сведения. Кроме этого, программа должна вычислять и выводить на экран следующую таблицу, в которой указано количество студентов, получивших оценки: отлично, хорошо, удовл., не удовл., не сдали

//

var a: array[1..10] of integer;

var stat: array[1..5] of integer;

i:integer;

yes:string;

begin

for i:=1 to 10 do begin

 write('оценка ',i,' студента: ');

 readln(a[i]);

 stat[a[i]]+=1;

end;

write('Вывести таблицу ? y/n: ');

readln(yes);

if yes = 'y' then begin

writeln;

for i:=1 to 10 do  

 writeln('оценка ',i,' студента: ',a[i]);

end;  

writeln;

writeln('Сдавших на отлично: ', stat[5]);

writeln('Сдавших на хорошо: ', stat[4]);

writeln('Сдавших на удволетворительно: ', stat[3]);

writeln('Сдавших на не удволетворительно: ', stat[2]);

writeln('Не сдавших: ', stat[1]);

end.

//