Составить программу в TURBO PASCAL 7.0, в которой с помощью оператора REPEAT необходимо протабулировать функцию y=cos(x/3+0.3) в диапазоне параметра от 0 до 6 с шагом 0.2
Буду очень благодарен за решение,спасибо за внимание.

Var  x: Real;beginx:=-0.2;while x<=6 do begin x:=x+0.2; Writeln('X=',x:2:1,'   Y=',cos(x/3+0.3):5:2); end;end.