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

var x,y,h:real;beginh:=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;  endend.