На каком расстоянии от корабля произошел взрыв, если звук от взрыва дошёл до корабля по воде на 4 сек раньше, чем ветер

Государственный крестьяне - Лично свободные крестьяне, которые несли государственные повинности и считались подданными государства.
Дворцовые крестьяне - Категория крестьян, которая обеспечивала всем необходимым императорские резиденции.
Удельные крестьяне - Крестьяне, пожалованные членам императорской семьи.
Кабинетские крестьяне - Крестьяне, принадлежавшие лично самому государю.
Приписные крестьяне - Крестьяне, которых приписывали для работы на казенных рудниках и заводах в счет уплаты подушной подати.
Посессионные крестьяне - Категория крепостных крестьян, закрепленных за мануфактурами. Было запрещено продавать таких крестьян отдельно от мануфактуры.
Крепостные крестьяне - Крестьяне, принадлежавшие на правах собственности дворянам - помещикам. Самая бесправная категория крестьян.

Program TaskC;

Var i, il: Integer;

Begin

For i := 1 To 21 Do

If i Mod 2 = 1 Then

Write(i, ' ');

i := i + 1;

End;

ReadLn;

End.

Program TaskD;

Var i: Integer;

Begin

For i := 1 To 11 Do

Write(i * 2, ' ');

End;

ReadLn;

End.

Program TaskE;

Var i: Integer;

Begin

For i := 10 DownTo 1 Do

Write(i, ' ');

ReadLn;

End.

Program TaskF;

Var i: Integer;

Begin

For i := 10 DownTo 1 Do

Begin

Write(i * 10, ' ');

End;

ReadLn;

End.

Program TaskG;

Var i, sum: Integer;

Begin

For i := 1 To 10 Do

sum := sum + i;

WriteLn(sum);

ReadLn;

End.

Program TaskH;

Var i, product: Integer;

Begin

product := 1;

For i := 1 To 5 Do

product := product * i;

WriteLn(product);

ReadLn;

End.

Program TaskI;

Var i, sum: Integer;

Begin

For i := -5 To 5 Do

sum := sum + Abs(i);

WriteLn(sum);

ReadLn;

End.

Program TaskJ;

Var c: Char;

Begin

For c := 'A' To 'Z' Do

Write(c, ' ');

ReadLn;

End.

Объяснение: