нужно контрольную работу сдать ​

Dpi - количество точек на дюйм
1200dpi - в 1 погонном дюйме 1200 точек (пикселей).
1 дюйм = 2,54 см
Узнаем сколько точек по горизонтали и по вертикали изображения:
21÷2,54=8,26771653543 дюйма ×1200=9921,25984251 пикселей по вертикали
29,7÷2,54=11,6929133858 дюйма ×1200=14031,4960629 пикселей по горизонтали
14031,4960629×9921,25984251=139210118,419 пикселей всего в изображении

N=512 цветов - мощность алфавита. N=2^i
512=2^9 ⇒ 9 битами кодируется 1 пиксель

139210118,419 ×9=1252891065,77 бит - информационный объем  полученного графического файла.

1252891065,77 бит ÷8=156611383,221 Байт ÷1024=152940,803926 Кб ÷1024=149,356 Мб.

Program Premier_liga_2;

var B, Diff: array [1..16] of integer;

   Team: array[1..16] of string;

   I, K, X, Z, P: integer;

   St: string;

begin

 writeln('Введите названия команд и полученные ими очки');

 for I:=1 to 16 do

 begin

   write(I, ' Название: '); readln(Team[I]);

   write('Очки: '); readln(B[I]);

   write('Забитые мячи: '); readln(Z);

   write('Пропущенные мячи: '); readln(P);

   Diff[I]:= Z-P;

 end;

 for K:=1 to 15 do

 for I:=1 to 16-K do

   if (B[i] < B[I+1]) or  

      ((B[i] = B[I+1]) and (Diff[i] < Diff[I+1])) then

   begin

       X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X;

       St:=Team[I]; Team[I]:=Team[I+1];

       Team[I+1]:=St;

   end;

 for I:=1 to 16 do

 begin

   for K:=1 to 18-length(Team[I]) do

     Team[I]:=Team[I]+' ';

   writeln(I:2,' ',Team[I]:18,B[I]:2)

 end;

end.