1 байт = 8 бит
1 килобайт = 1024 байт
Следовательно: 1 килобайт = 8192 бит
Ответ:
Var i:integer
Begin
For i:=-5 to 5 do
Writeln (2*sin(0.2*i*3));
End.