Question

Нужно нарисовать блок схем 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.​