Количество классов в школе изучающих информатику 14. Во всех классах случайное

Program z1;

var f: array[1..14] of integer;

   sum,i:integer;

begin

randomize;

for i:=1 to 14 do

 begin

  f[i]:=random(16,35);  

  writeln(f[i],' человек',' в',' ',i,' классе');

  Sum:=Sum+f[I];

 end;

 writeln('----------------------');

 writeln ('Всего человек:',sum);

 writeln ('Необходимо уроков:',14*2); // делим на 2 группы,т.к во всех классах gt;16 человек.

 writeln ('Необходимо часов:',(14*2)*0.75); // урок продолжается 3/4 часа (45 минут).

end.