1 program Fibonacci;
    2 {importação da biblioteca CRT}
    3 uses CRT;
    4 var
    5    {criação de duas variáveis a e b do tipo inteiro}
    6    a,b : longint;
    7 {início do programa}
    8 begin
    9    {limpa a tela}
   10    clrscr;
   11    {atribuindo valor as variáveis}
   12    a:= 0;
   13    b:=1;
   14    {iniciando um loop}
   15    while a<100000 do
   16    begin
   17       {realizando os cálculos}
   18       a:= a+b;
   19       b:= a-b;
   20       {escreve no prompt de comando}
   21       write(a,',');
   22    end;
   23    {esperando que alguma tecla seja pressionada para encerrar o programa}
   24    readkey;
   25 end.