Помогите, пожалуйста! Вычислите значение функции y=(2+3x)/(cos x +1) если x изменяется от 0 до 1 с шагом 0,2. Вывод сделать в цикле, оформить в виде при x= y=

var  x,y:real;begin  x:=0;  while x<=1 do begin    Writeln('x=',x:3:1,', y=',(2+3*x)/(cos(x)+1));    x:=x+0.2    endend.Результат выполнения программы:x=0.0, y=1x=0.2, y=1.31308716034924x=0.4, y=1.66574617359348x=0.6, y=2.08180893911284x=0.8, y=2.59325903278415x=1.0, y=3.24611602602381