Число Фибоначчи - Pascal ABC

Формулировка задачи:

решить через процедуры или функции: найти первое число фибоначчи которое больше заданного n

Решение задачи: «Число Фибоначчи»

Листинг программы

function fib1(n:integer):integer;
var a,b:integer;
begin
a:=0;
b:=1;
repeat
a:=a+b;
b:=a-b;
until a>n;
fib1:=a;
end;
var n:integer;
begin
repeat
write('Введите натуральное число n>1 n=');
readln(n);
until n>1;
writeln('Первое число Фибоначчи, больше ',n,'=',fib1(n));
end.

Объяснение кода листинга программы

Объявлена функция fib1, которая принимает целочисленный аргумент n и возвращает целочисленное значение.
Внутри функции объявлены две переменные a и b типа integer.
Переменная a инициализируется значением 0, а переменная b значением 1.
Затем в цикле while происходит вычисление чисел Фибоначчи последовательно, используя формулу a+b, затем a-b, пока значение a не превысит n.
Значение переменной a присваивается возвращаемому значению функции fib1.
В основной части программы объявлена переменная n типа integer.
В цикле while пользователю предлагается ввести натуральное число n>1.
После ввода числа, выводится сообщение с числом Фибоначчи, которое больше введенного числа.