Распечатать 6 значений :X,Y
Y=3*cosx/3
Где x изменяется от -3πс шагом 0.8 составить программу(pascal)

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    endend.Результат-9.424778       -3.000000-8.624778       -2.893964-7.824778       -2.583352-7.024778       -2.090120-6.224778       -1.449137-5.424778       -0.705713