Не знаю, поддерживает ли Бейсик рекурсию, но решение с рекурсией очень красивое, вот оно
Основная программа
Ввод(M);
Сообщить(F(M));
Всё!
Подпрограмма вычисления M-того числа Фибоначчи (рекурсивная!)
Функция F(M)
Если M<1 Тогда</p>
Возврат(0);
КонецЕсли;
Если M<3 тогда</p>
Возврат(1);
Иначе
Возврат(F(M-2)+F(M-1));
КонецЕсли;
КонецФункции
Проверил(не на бейсике), работает.
Достаточно быстро посчитала
F(20)=6765