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

program zz1;

var x, y:real; / /заводим переменные не целого типа

begin

x:=-1; / /задаем начальное значение для х

while x<=1 do / /организуем цикл, который переберет все числа от - 1 до 1 с шагом 0.1

begin

y:=sin (x); / /вычисляем значение функции y=sin (x)

writeln (' для х = ', x:4:1,' y = ', y:3:3); / /выводим на экран число х и полученное значение y в столбец

x:=x+0.1; / / увеличиваем х на значение шага

end;

end.