Написать программу на паскале и сделать к нему блок схему
16.Вычислить : y= lg (sin[tex] \frac{Pi}{x} [/tex]) [-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.