program raf105;
var
x: integer;
y: real;
begin
x:= -10;
while x <= 10 do
y:= sin(x);
writeln('(',x:3,' ; ',y:3:2,')');
x:= x+2;
end;
end.
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