Вывести на экран все значения функции y=sinX  на промежутке от -1 до 1 с шагом 0,1.паскаль

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.