program pr2; {$APPTYPE CONSOLE} uses math; var i,n:integer; a1,a2,a3:extended; begin readln (n); a1:=1; a2:=1; writeln(a1:0:0); writeln(a2:0:0); for i:=3 to n do begin a3:=a1+a2; a1:=a2; a2:=a3; writeln(a3:0:0); end; readln; { TODO -oUser -cConsole Main : Insert code here } end.