Протабулировать
функцию у = sin(x+ i) на отрезке [0;i]с шагом h=0,01*i, где i – номер варианта.
Результаты вычислений вывести на экран в виде таблицы пар чисел х и у. Вычислить произведение отрицательных значений функции у. определить аргумент
максимального значения функции.

var  x,y,p,xmax,ymax:real;  i:integer;beginwrite('Номер варианта:');readln(i);writeln('x':5,'y':8);while x<=i do  begin  y:=sin(x+i);  if y<0 then     begin     if p=0 then p:=1;     p:=p*y;     end;  if x=0 then ymax:=y;  if y>ymax then    begin    ymax:=y;    xmax:=x;    end;  writeln(x:6:2,y:10:5);  x:=x+0.01*i;  end;writeln('Произведение отрицательных: ',p);writeln('Аргумент максимального: ',xmax);end.