2 яхты по затоке в одну сторону, 2 яхты по узкой реке в другую. Друг за другом, то есть.
===== PascalABC.NET ======
begin
SeqGen(8, 2, 3, (p, q) -> p * p + q).Print
end.
Var A:integer;
Begin
WriteLn('Введи целое число');
ReadLn(A);
if (A>10)and(A<20) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит20')
End.
10 битов, 2 байта, 20 битов, 1010 байтов, 1кбайт
Начальный кадр от которого начнется показ дальнейший кадров)