60Мб *1024*1024 = 62914560 байт
256Кбит = 32000 байт
31457280/32000 + 31457280/16000 = 983,04 + 1966,08 = 2949,12 сек ≈ 49 мин 9 сек
1024*8/64*64=2 бита - это глубина цвета i
2 возводим в степень 2 =4 цвета по формуле(N=2^i)
Var
a:integer;
begin
Read(a);
if (a < 18) then Writeln('Вы не совершеннолетний')
else Writeln('Вы совершеннолетний')
end.
2) writeln (copy(s1,2,6));
3) delete (s,1,5);