Написать программу на паскале и сделать к нему блок схему 16.вычислить : y= lg (sin) [-5,5]. h=0.01.

// для x<0 выражение смысла не имеет

PROGRAM B09;
CONST
    min=-5;
    max=5;
    hx=0.01;
VAR
    x:real;

BEGIN
  x:=min;
  while (x<=max) do begin
    writeln ('x=', x:6:3, ' ', log10( sin(Pi/x) ), ' ' );
    x:=x+hx;
  end;
END.