Напишите программу, вычисляющую и выводящую на экран 10 первых членов последовательности фибоначчи

var

  i: integer;

  af: array [1..10] of integer;

begin

  af [1] : = 1;   // первый член ряда равен 1

  af [2] : = 1;   // второй член ряда равен 1

  for i : = 3 to 10 do begin   // цикл, начинающийся с 3-го члена до заданного (десятого)

    af [i] : = af [i - 2] + af [i - 1];   // каждый член ряда равен сумме двух предыдущих

  end;

  for i : = 1 to 10 do begin   // вывод на экран первых 10 членов ряда

    write (af [i], ', ');

  end;

end.

// 2-й вариант (без использования массива)

var

  a, b, c, i: integer;

begin

  a : = 1;

  write (a, ', ');

  b : = 1;

  write (b, ', ');

  for i : = 3 to 10 do begin

    c : = a + b;

    write (c, ', ');

    a : = b;

    b : = c;

  end;

end.

1)деловая бумага; 2)подтверждает факт или право

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end.