Program Fibonacci;
Var k, f0, f1, f2 : integer;
Begin
f0 := 1 ; f1 := 1;
Write(f0, ' ', f1, ' ');
For k := 2 to 19 do
Begin
f2 := f1+f0;
f0 := f1;
f1 := f2 ;
Write(f2, ' ');
End;
End.
UHJvZ3JhbSBGaWJvbmFjY2k7ClZhciBrLCBmMCwgZjEsIGYyIDogaW50ZWdlcjsKQmVnaW4KZjAgOj0gMSA7IGYxIDo9IDE7CldyaXRlKGYwLCAnICcsIGYxLCAnICcpOwpGb3IgayA6PSAyIHRvIDE5IGRvIApCZWdpbgpmMiA6PSBmMStmMDsKZjAgOj0gZjE7CmYxIDo9IGYyIDsKV3JpdGUoZjIsICcgJyk7CkVuZDsKRW5kLg==