Это рекурсия, F генерирует число (n+1) и (n+2), если n< 5
При вводе n =1 программа выводит на экран числа, равные (п+1) и (n+2 ), если раннее генерированное n<5 Вот эти числа:
1
2
3
4
5
6
5
4
5
6
3
4
5
6
5
Var
s:string;
begin
readln(s);
writeln(length(s));
end.
<span>3 бита, нужно обьём на количество делить</span>