Помогите пожалуйста с паскалем
Протабулировать функцию y= cos x2+sin x2 на интервале [-п/2,п/2] с шагом п/10.

var     x,y,n:real;       begin            n:=10;     x:=-pi/2;                   while x<=pi/2 do                                  begin                                            y:=cos(sqr(x))+sin(sqr(x));                                           writeln(x:4:2,' ',y:4:2);                                            x:=x+n/10;                                  end;     end.