Решите это задание на фото

1920*1080*24 бит пикс * 24 кадра * 1 сек = 1194393600 бит вес 1 секунды видео-дорожки в видеоролике

((ln(65536)/ln(2)) бит на Гц * (192 * 1000) Гц * 24 канала * 1 сек = 73728000 бит вес одной секунды аудио-дорожки в видеоролике

было раздано 5805 мбайт / 5 мбайт = за 1161 секунд.
вес файла 25 мбайт сек * 1161 сек = 29025 мбайт * 1024 * 1024 * 8 = 243479347200 бит вес файла.

получается нужно подуравнять чтоб под размер получилось
(1194393600*x)+(73728000*x)=243479347200
1194393600 + 73728000 = 1268121600
243479347200 / 1268121600 = 192
x=192 сек

uses Drawman;

var i,x,y: integer;

begin

Field(13,13);

for i:=0 to 3 do

begin

 x:=1+i;

 y:=3+i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x+2,y);

 ToPoint(x+2,y-2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=1+i;

 y:=10-i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x+2,y);

 ToPoint(x+2,y+2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=10-i;

 y:=1+i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x,y+2);

 ToPoint(x+2,y+2);

 PenUp;

end;

for i:=0 to 3 do

begin

 x:=10-i;

 y:=12-i;

 ToPoint(x,y);

 PenDown();

 ToPoint(x,y-2);

 ToPoint(x+2,y-2);

 PenUp;

end;

ToPoint(0,0);

end.