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