Série de Fibonacci

{Faca um programa que imprima a serie de Fibonacci = (0,1,2,3,5,8,13,...)
 enquanto o termo a ser impresso for menor que 5000.}

Program Fibonacci;
Uses CRT;
Var
    VAuxF, VFib1, VFib2: Integer;
Begin
    VFib1 := 1;
    VFib2 := 0;
    VAuxF := 0;
    Clrscr;
    While VFib2 < 5000 Do
          Begin
              Writeln(VAuxF);
              VAuxF := VFib1 + VFib2;
              VFib1 := VFib2;
              VFib2 := VAuxF;
          End;
    Readkey;
End.