Напишите программу нахождения 10 чисел фибоначчи. паскаль

Var
  i,f, f0, f1: integer;
begin
  f0 := 0;f1 := 1;
  write(f0:4, f1:4);
  for i := 1 to 8 do
  begin
    f := f1 + f0;
    write(f:4);
    f0 := f1;
    f1 := f;
  end;
end.

Тестовое решение:
   0   1   1   2   3   5   8  13  21  34