Помогите пожалуйста с паскалем
Протабулировать функцию 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.