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.