循环结构练习题目4

program exRecurrence9_1;
var
    a1, a2, s : double;
    i : integer;
begin
     a1 := 0;
     a2 := 1;
     write(a1:0:0, ' ', a2:0:0, ' ');
     for i := 3 to 100 do
     begin
          s  := a1+a2;
          a1 := a2;
          a2 := s;
          write(s:0:0, ' ');
          if (i mod 10 = 0) then writeln;
     end;
     readln;
end.