// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var (a,b):=(1,1);
Print(a);
for var i:=3 to n+1 do begin
Print(b);
(a,b):=(b,a+b)
end
end.
Пример
n= 15
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610