Изветсны оценки по информатике 15 студентов группы. сформировать случайным образом оценки из диапазона [2; 5], вывести их на экран. определить общую успеваемость группы по предемету общая_успеваемость = количество_студентов - количество_"2"/количество_студентов * 100%

Var
i,count: integer;
a: array [1..15] of integer;
begin
randomize();
for i:=1 to 15 do
 begin
  a[i]:= 2 + random(4);
  if a[i] = 2 then count:= count + 1;
 end;
for i:=1 to 15 do write (a[i], ' ');
Writeln;
Writeln('Общая успеваемость = ', (15-count)*100/15:0:3, '%');
end.