Протабулировать функцию на интервале -п/2 ≤ x ≤ п/2 c шагом h = 0,4: y=21cos(п/3-2x)+e^2x

Var x,y,h:real;
begin
h:=0.4;
x:=-Pi/2;
writeln('x':3,'y':8);
while x<=Pi/2 do
  begin
  y:=21*cos(Pi/3-2*x)+exp(2*x);
  writeln(x:5:2,y:8:2);
  x:=x+h;
  end
end.