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