Составить программу вычисления значения функции при изменении аргумента в указанном диапазоне и с заданным шагом. Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы и проверить правильность выполнения программы с помощью тестового варианта — Pascal(Паскаль)

uses crt;
var x,y,a,xn,xk,dx:real;
begin
clrscr;
a:=2.3;
xn:=0.2;
xk:=2.8;
dx:=0.2;
x:=xn-dx;{отступим на шаг назад, иначе за счет округлений не попадаем в 2,8}
while x<=xk do{пока не 2,8}
 begin
  x:=x+dx;{добавляем х, и считаем по формулам}
  if x<1 then y:=0.5*sqr(cos(x))
  else if x=1 then y:=1.8*a*x
  else if(x>1)and(x<2)then y:=sqr(x-2)+6
  else y:=3*sin(x)/cos(x);
  writeln('x=',x:4:1,'   y=',y:5:2);{выводим}
 end;
readln
end.