DECLARE FUNCTION FIB% (N%) INPUT "Задайте порядковый номер числа Фибоначчи - ", N% PRINT "Число Фибоначчи с номером "; N%; " равно "; FIB%(N%) END FUNCTION FIB% (N%) IF N% < 2 THEN FIB% = N% ELSE FIB% = FIB%(N% - 2) + FIB%(N% - 1) END IF END FUNCTION