Deret Fibonacci

program Fibonacci

var a, b, c, d, e : interger;
begin
writeln('Masukkan bilangan : '); readln(a);
c:=1;
d:=1;
for b:=1 to a do
        begin
        if (b=1) or (b=2) then
        write (c,' ')
        else
                  begin
                  e:=c+d;
                  c:=d;
                  d:=e;
                  write (e, ' ');
                  end;
          end;
          readln;
end.