Сколько поколений компьютера сегодня существует a 3 b 4 c 5 d не определено

1. плывут два ребенка

2. один ребенок возвращается

3. плывет взрослый на др. берег

4. возвращается второй ребенок

5. плывут два ребенка на др. берег

6. один ребенок возвращается

7. плывет взрослый на др. берег

8. возвращается второй ребенок

9. плывут два ребенка на др. берег

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.