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.

PascalABC 3.4.2