В школе N учеников 9 класса писали пробный экзамен по математике. Составить программу, подсчета количества 2,3,4,5, полученных за экзамен. Считайте оценку ученика случайным числом из диапазона от 2 до 5.

var  A: array[1..200] of byte;  i, N, cTwo, cThree, cFour, cFive: byte;beginwrite('Введите количество учеников(N): '); readln(N);randomize;writeln('Все оценки за экзамен.');for i := 1 to N dobegin  A[i] := random(4)+2;  if A[i] = 2 then cTwo := cTwo + 1;  if A[i] = 3 then cThree := cThree + 1;  if A[i] = 4 then cFour := cFour + 1;  if A[i] = 5 then cFive := cFive + 1;  write(A[i], ' ');  end;writeln('');writeln('Оценку 2 получили ', cTwo, ' уч.');writeln('Оценку 3 получили ', cThree, ' уч.');writeln('Оценку 4 получили ', cFour, ' уч.');writeln('Оценку 5 получили ', cFive, ' уч.');writeln;end.