Var i:longint; 
    a:real;

begin
for i:=1 to 10 do //for нельзя делать по дробным числам, поэтому будем в цикле делить на 10
 begin
   a:=i;  //integer это целочисленный тип, поэтому присваиваем его значение к переменной типа real
   write(sin(a/10),' ');//синус от положительного
   write(sin(-(a/10)),' ');//синус от отритцательного
 end;

end.