Програма запитує користувача, яку пору року ти любиш, якщо не правильно повідомляє, що такої пори року не існує , якщо вірно виводить літо - найкраща пора року!

это без использования файлов

var spisok: array [word] of string; {объявляем массив для хранения фамилий} n,i,k: word; {n - количество фамилий,i - переменная, k - количество фамилий в списке равных 8 или 9 буквам}

beginwrite('введите количество фамилий в списке n = '); readln(n); for i: =1 to n do beginwrite('введите фамилию ',i,' : '); readln(spisok[i]); if (length(spisok[i])=9) or (length(spisok[i])=8) then inc(k); {inc(k) - это тоже самое ,что k: =k+1; }end; writeln('количество фамилий в списке состоящих из 8 или 9 букв = ',k); end.

п.с. если вам потребуется,обработка конкретно через фаил напишите мне, так как в условии вы не указали точно через что!

мальчик высаживает второго мальчика на втором берегу, сам отправляется на первый. там, он выходит из лодки и сажает вместо себя солдата. солдат перемещается на второй берег и выходит. "за руль" садится мальчик и плывет к 1ому берегу, берет 2ого пацана и они оба "едут" на второй берег. там один мальчик выходит. 2ой отправляется на первый берег меняется местами со вторым солдатом и солдат плывет на второй берег. там второй пацан садится в лодку и плывет на первый берег за другом. результат: бойцы переправились, а мальчики снова катаются.

удачи..