Verified answer

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.