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.