примерно 45 минут. Сначало 2 брата садятся в лодку и переплывают на другой берег, один брат остаётся на берегу, другой возращается к отцу и матери. Потом в лодку садится отец, переплывает и отдаёт её сыну, тот переплывает к матери и брату. Два брата садятся в лодку и переплывают реку, один брат остаётся с отцом, а другой плывёт к матери. Переплыв реку он даёт лодку матери. Она переплывает реку и даёт лодку сыну, тот плывёт за братом и они в двоём переплывают реку на лодке.
//PascalABC.NET v3.3 1633
begin
var days: array [1..7] of string:=('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
var n:=ReadLnInteger('Введите номер дня: ');
writeln(n+' день — ' + days[n mod 7]);
end.
Var a,b,c:integer;
begin
write(' введите два различных числа');
read(a,b);
if a>b then c:=a else c:=b;
writeln('большее число =', c);
end.