Два шпиона вели переписку и одному из шпионов возникла необходимость сообщить номер своего телефона состоящий из 11 цифр,

program zz1;var a, b, c, p, k:int64; // задаем переменные целого типаbegin a:=1;b:=1;c:=a + b; // получаем первые числа Фибоначчиwhile p <> 11 do // организуем цикл, пока количество цифр числа Фибоначчи не достигнет одиннадцати beginp:=0;a:=b;b:=c;c:=a + b; // получаем следующее число Фибоначчиk:=c; // запоминаем его в другой переменнойwhile k > 0 do // считаем цифры у числа Фибоначчиbegink:=k div 10;p:=p + 1;end;end;writeln(\' номер первого шпиона = \', c); // выводим ответend.