Распечатать 6 значений :X,Y Y=3*cosx/3 Где x меняется от -3с шагом

Var
  x:real;
  i:integer;
begin
  x:=-3*pi;
  for i:=1 to 6 do begin
    Writeln(x:9:6,3*cos(x/3):16:6);
    x:=x+0.8
    end
end.

Итог
-9.424778       -3.000000
-8.624778       -2.893964
-7.824778       -2.583352
-7.024778       -2.090120
-6.224778       -1.449137
-5.424778       -0.705713