Разработать программу осуществляющую табулирование заданной функции при изменении аргумента «х» от начального значения «x0» до конечного значения «хn» с постоянным шагом «hx», т.е. x=x0(hx)xn — Pascal(Паскаль)

uses crt;
var x0,xn,hx,x,f:real;
begin
clrscr;
hx:=pi/16;
x0:=-pi/2-hx;
xn:=hx;
x:=x0;
repeat
if(x<-pi/2)or(x>0) then writeln('x=',x:5:2,'  функция не определена')
else
 begin
  if(x>=-pi/2)and(x<=-pi/4)then f:=2*sqr(sin(pi/4-x/2))
  else if(x>=-pi/4)and(x<=-pi/8)then f:=(1-cos(2*x))/(sin(2*x))
  else f:=x/(2+cos(x));
  writeln('x=',x:5:2,'  f(x)=',f:9:4);
 end;
x:=x+hx;
until x>xn;
readln
end.