Var    ar:array[1..20]of integer;
    a,b,c,i: integer;
begin
    a := 0;
    ar[1]:=a;
    b := 1;
    ar[2]:=b;
    for i:=3 to 20 do begin
        ar[i]:=a+b;
        c := b;
        b := a + b;
        a := c;    end;
 for i:=1 to 20 do write(ar[i], );
end.