Solução em Pascal do Problema 14

program SequenciaFibonacci;
var
  n, F1, F2, Funcao, Conta: integer;
begin
  write ('Digite um numero n: ');
  read (n);
  Conta := 1;
  F1 := 1;
  F2 := 1;
  Funcao := 0;
  while (Conta <= n) do
    begin
      F1 := F2;
      F2 := Funcao;
      Funcao := F1+F2;
      Conta := Conta+1
    end;
  writeln ('F de ',n,' = ',Funcao)
end.