Pascal: programma per trovare un numero della sequenza di fibonacci

La sequenza di Fibonacci è: 0 1 1 2 3 5 8 .....

ecco un programma per sapere il primo, il secondo il decimo qualsiasi altro numero della sequenza.

program sequenzafibonacci;

uses crt;

var

n,x,y,s:longint;

c:char;

begin

repeat

x:= 0;

y:= 1;

S:= 0;                 

clrscr;                          

gotoxy(30,1);                                  

textcolor(black+blink);                        

textbackground(green);                       

write(' SEQUENZA DI FIBONACCI ');

textbackground(black);                              

textcolor(10);

delay(100);

gotoxy(1,3);

write('Quale numero della sequenza vuoi sapere? ');

read(n);

         if n< 2 then

        begin

        gotoxy(1,5);

        textcolor(12);

        write('Il numero della sequenza è: ',n);

        end

                else

                while n >= 2 do

                        begin

                         s:= x + y;

                          x:= y;

                           y:= s;

                            n:= n -1;

                          end;

        gotoxy(1,5);

         textcolor(12);

        write('Il numero della sequenza è: ',s);

 textcolor(10);

 gotoxy(1,7);

 write('Vuoi calcolare un altro numero? (y/n) ');

 c:= readkey;

 until c <> 'y';

 gotoxy(1,11);

 write('USCITA!');

 delay(1000);

 end.