Программа на паскале для вычисления первых n чисел фибоначчи

Var
  n, a, b, c : integer;
begin
  a := 1;
  b := 1;
  write('n? ');
  readln(n);
  write(a,' ',b,' ');
  for var i:=3 to n do
  begin
    c := a + b;
    write(c,' ');
    a := b;
    b := c;
  end;
end.

Program hhh54;
var i,n,x:longint;
  a: array [1..100000] of longint;
begin
  read (n);
  a[1]:=1;
  a[2]:=1;
  for i:= 3 to n do
    begin
      a[i]:=a[i-1]+a[i-2];
      write (a[i]);
    end;
end.