Обозначим:
Д - один из близнецов.
М - мама.
П - папа.
Левый берег - начало.
Правый берег - конец.
1. Отправим двух близнецов.
МП...ДД
2. Оставим одного на правом берегу, другого отправим на левый. Плывет папа.
ДМ...ДП
3. Отправим близнеца с правого берега на левый, заберем брата на правый берег.
М...ДДП
4. Отправляем близнеца налево, мама плывет.
Д...ДМП
5. Другой близнец плывет за братом и вместе оказываются на правом берегу.
...ДДМП
Во втором пункте неважно кого из взрослых отправить первым.
Прочитать книгу, подготовиться к уроку и тд
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Var a:Char;
begin
Read(a);
WriteLn(Ord(a));
end.
оно?