Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
Интернет!!!!!!!!!!!!!!!!!!!!!!!!!
Если n - натуральное число, то
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
1.Step.Select(n->2*n+3).TakeWhile(a->a<100).Println
end.
<u><em>Результат:</em></u>
5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99