C++ and pascal

program fibbonacci;
uses
  crt;
var
  x, y, temp : longint;
  p, i : byte;
begin
  clrscr;
  writeln('This program handles the fibonacci series');
  write('Enter length of series:');
  readln(p);
  i := 1;
  x := 1;
  y := 0;
  while i <= p do begin
    inc(i);
    temp := x;
    x := y;
    y := temp+y;
    write(y, ' ');
  end;
  writeln();
  writeln('Press ENTER.');
  readln();
end.

#include<iostream>

using namespace std;

int main(){
         int x;
         int y;
         int temp;
         int i;
         
         cout<<"This program handels the fibonacci series \n";
         cout<<"Enter length of series:";
         cin>>i;
         cin.ignore();
         x = 1;
         y = 0;
         for (int p = 1; p<=i; p++){
             temp = x;
             x = y;
             y = x+temp;
             cout<<y<<" ";
             }
         cout<<endl<<"Press ENTER.";   
         cin.get();
         }

function IsRegistered (Account : string) : boolean;

var

   dbFile : text;

   data   : string;



begin

   IsRegistered := FALSE;

   assign (dbFile, 'database.db');

   reset (dbFile);

   while not eof (dbFile) do begin

      readln (dbFile, data);

      if data = concat ('  Account:', Account) then begin

         IsRegistered := TRUE;

         close (dbFile);

         exit;

      end;

   end;

   close (dbFile);

end;