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

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