Написать программу в Паскале. Последовательность фибоначчи образуется так:…

Я бы сделал так: uses crt; const b=99999; vari,n: integer; mas: array [1… b] of integer; beginmas[1]: =1; mas[2]: =1; for i: =3 to b domas[i]: =mas[i-1]+mas[i-2]; writeln ('vvedite iskomoe 4islo'); read (n); for i: =1 to b doif mas[i]+mas[i-1] <= n thenwrite (mas[i],'); read; end. Тут массив ограничен максимальным пятизначным числом 99999 (строка const n=…) так что если будет надо исправишь) только это чисел то таких будет чертовски много)