нужно нарисовать блок схемProgram Primer1; const xn=-10; xk=10; h=0. 25; var x, y: real; i,k1, k2, n: integer; begin x:=xn; repeat n:=n+1; x:=x+h; until x>xk; writeln ('n=', n); x:=xn; for i:=1 to n do begin y:=(1-sqr(sin(x)/cos(x))*sin(x)); if y>0 then k1:=k1+1 else k2:=k2+1; writeln ('x=',x, 'y=',y); x:=x+h; end; writeln('количество положительных / количество отрицательных = ',k1/k2); end. ​