Проверка гипотезы Кеплера о числах Фибоначчи и "золотом сечении" - Turbo Pascal

Формулировка задачи:

Математик и астроном Кеплер обратил внимание на то, что с увеличением номеров элементов числового ряда Фибоначчи отношение предыдущего элемента к последующему приближается к отношению золотого сечения (0,618) . Написать программу проверки этого утверждения.

var M:array[1..21] of integer;
 a:real;
 i:integer;
 begin
 M[1]:=1;
 M[2]:=1;
  for i:=3 to 10 do  begin
    M[i]:=M[i-1]+M[i-2];
     a:=M[i-1]/M[i];
     if a=0.618 then write('Верно') ;
     write(M[i],' ');
               end;
               writeln(a:0:5);
     readln
    end.

Все получается ,но условие не выполняется

Решение задачи: «Проверка гипотезы Кеплера о числах Фибоначчи и "золотом сечении"»

textual
                            Листинг программы 
                        

                            const
  N = 20;
 
var
  M: array[1..N] of integer;
  i: integer;
 
begin
  M[1] := 1;
  M[2] := 1;
  for i := 3 to N do  
  begin
    M[i] := M[i - 1] + M[i - 2];
    write(M[i], ' ')
  end;
  writeln;
  writeln;
  for i := 2 to N do
    writeln(i, ') ', M[i - 1] / M[i]);
  readln
end.
                        