Два шпиона вели переписку и одному из шпионов возникла необходимость сообщить номер своего телефона состоящий из 11 цифр, тогда он написал сообщение: В мой день рождения, собрались все наши друзья и мы играли в игру числа Фибаначчи. Написать номер телефона первого шпиона.

program zz1;

var a, b, c, p, k:int64; / / задаем переменные целого типа

begin

a:=1; b:=1; c:=a + b; / / получаем первые числа Фибоначчи

while p 11 do / / организуем цикл, пока количество цифр числа Фибоначчи не достигнет одиннадцати

begin

p:=0;

a:=b;

b:=c;

c:=a + b; / / получаем следующее число Фибоначчи

k:=c; / / запоминаем его в другой переменной

while k > 0 do / / считаем цифры у числа Фибоначчи

begin

k:=k div 10;

p:=p + 1;

end;

end;

writeln (' номер первого шпиона = ', c); / / выводим ответ

end.