Program Hzzz; uses crt;

const n=10; {Кол-во точек}

var x,y:array [1..n] of real;
    m:array [1..n,1..2] of real;
    i,j,count:byte;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Writeln(' Введите ',n,' координат X: ');
for i:=1 to n do
     Begin
       Write(' X',i,'= '); Readln(X[i]);
       end;

Write('--------------------------------------------------------------------------------');
GotoXY(19,WhereY); Writeln('Для продолжения нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Write('--------------------------------------------------------------------------------');
Writeln(' Введите ',n,' координат Y: ');
for i:=1 to n do
    Begin
    Write(' Y',i,'= '); Readln(Y[i]);
    end;

Write('--------------------------------------------------------------------------------');
GotoXY(19,WhereY); Writeln('Для продолжения нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;


Write('--------------------------------------------------------------------------------');
Writeln(' Массив координат X: ');
for i:=1 to n do Write(X[i]:7:2);
Writeln;

Write('--------------------------------------------------------------------------------');
Writeln(' Массив координат Y: ');
for i:=1 to n do Write(X[i]:7:2);
Writeln;

for i:=1 to n do {Формируем матрицу}
    Begin
    M[i,1]:=X[i];
    M[i,2]:=Y[i];
    end;

Write('--------------------------------------------------------------------------------');
Writeln(' Матрица M:');
for i:=1 to n do
    Begin
    for j:=1 to 2 do Write(M[i,j]:7:2);
    Writeln;
    end;

Count:=0;

for i:=1 to n do
    Begin
    if ((0 <= M[i,1]) and (M[i,1] <= Pi)) then
                                          Begin
                          if ((0 < M[i,1]) and (M[i,1] < ((7/6)*Pi)) and (Sin(M[i,1]) > M[i,2]) and (M[i,2] < Sin(Pi/2))) then Inc(Count);
                                              end
                                          else
                                  Begin
                                  if ((0 < M[i,1]) and (M[i,1] < ((7/6)*Pi)) and (Sin(M[i,1]) < M[i,2]) and (M[i,2] < Sin(2*(Pi/2))) and (M[i,2] < 0)) then Inc(Count);
                                          end;

    end;
Write('--------------------------------------------------------------------------------');
Writeln(' Ответ: ',Count);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.