Вычислить значения функции y=sin x на отрезке [-10,10] с шагом 2
ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО

program raf105;

var

 x: integer;

 y: real;

begin

 x:= -10;

 while x <= 10 do

 begin

   y:= sin(x);

   writeln('(',x:3,' ; ',y:3:2,')');

   x:= x+2;

 end;

end.