Задача:

наити последовательность чисел от 1 до n в которой каждый следующий член равен
сумме двух предыдущих первые два члена равны 1
например: 1, 1, 2, 3, 5, 8, 13, 21, ...

Решение:

program chisla_Febonachi;
uses CRT;
var n, a, b, x, i:integer;
begin
textcolor (4);
Writeln ('Введите количество чисел, которые вы хотите получить');
readln (n);
a:=1;
b:=1;
writeln ('Числа:');
for i:=3 to n do
begin
x:=a+b;
Write (' ', x);
a:=b;
b:=x;
end;
readkey;
end.