Числа Фибоначчи F определяются по формулам F0=F1=1, Fi=Fi-1+Fi-2 при i= 2, 3, … Найдите первое из чисел Фибоначчи, которое превосходит заданное число М (М>0)- Pascal(Паскаль)

var
    m, f1, f2: integer;
begin
    write('Enter M = '); readln(m);
    f1 := 0;
    f2 := 1;
    repeat
        f2 := f1 + f2;
        f1 := f2 - f1;
    until (f2>m);
    writeln('F = ', f2);
  readln;
end.