program Fibonacci;

var
n, a, b, c, i: integer;

begin
a := 1;
b := 1;
c := 0;

writeln('Первые 15 чисел Фибоначчи:');
writeln(a);
writeln(b);

for i := 3 to 15 do
begin
c := a + b;
writeln(c);
a := b;
b := c;
end;
end.