Ответ:
Var i:integer
Begin
For i:=-5 to 5 do
Writeln (2*sin(0.2*i*3));
End.
1.-1; 2.-4; 3.-5; 4.-6; 5.-2; 6.-3;