C1.
Точка x=5*pi/2; y=0;
Var
   x,y: Real;
Begin
   Readln(x,y);
   If (y>=-1) and (y<=sin(x)) and (x>=0) and (x<=3*pi/2) then
    Writeln('принадлежит')
   Else
    Writeln('не принадлежит');
End.

C2.
s:=0;
x:=0;
For i:=1 to n do
   If a[i]<175 then
    Begin
     s:=s+a[i];
     Inc(x);
    End;
s:=s/x;
Writeln(s);

C3.
Первый игрок, ход (0;4)

C4.
Var
   info:array[8..11] of Record:
                    max,kol: Integer;
                    End;
   i,class,ball,n: Integer;
   c: Char;
Begin
   For i:=8 to 11 do
    Begin
     info[i].max:=-1;
     info[i].kol:=0;
    End;
   Readln(n);
   For i:=1 to n do
    Begin
     Repeat
      Read( c );
     Until c=' ';
     Repeat
      Read( c );
     Until c=' ';
     Readln(class,ball);
     If class<8 then
      class:=8;
     If ball>info[class].max then
      Begin
       info[class].kol:=1;
       info[class].max:=ball;
      End
     Else
      If ball=info[class].max then
       Inc(info[class].kol);
    End;
   For i:=8 to 11 do
    If info[i].max>200 then
     Write(info[i].kol,' ')
    Else
     Write('0',' ');
End.

C1.
Точка x=-10; y=2;
Var
      x,y: Real;
Begin
      Readln(x,y);
      If (y<=4-x) and (y>=1) and (y<=x*x) and (x>0) then
       Writeln('принадлежит')
      Else
       Writeln('не принадлежит');
End.

C2.
s:=0;
x:=0;
For i:=1 to n do
      If a[i]>=3 then
       Begin
        s:=s+a[i];
        Inc(x);
       End;
s:=s/x;
Writeln(s);

C3.
Первый игрок, ход (2;6)

C4.
Var      
      info:array[9..11] of record:
                             max, kol, k: Integer;
                            End;
      i,n,ball,class: Integer;
      c: Char;     
Begin
      For i:=9 to 11 do
       Begin
        info[i].max:=-1;
        info[i].kol:=0;
        info[i].k:=0;
       End;
      Readln(n);
      For i:=1 to n do
       Begin
        Repeat
         Read(c);
        Until c=' ';
        Repeat
         Read(c);
        Until c=' ';
        Readln(class,ball);
        If class<9 then
         class:=9;
        If ball>info[class].max then
          Begin
           info[class].max:=ball;
           info[class].kol:=1;
          End
        Else
         If ball=info[class].max then
          Inc(info[class].kol);      
        Inc(info[class].k);
       End;
      For i:=9 to 11 do
       If info[i].kol*100>info[i].k*45 then
        If info[i].max>50 then
         Write(info[i].kol,' ')
        Else      
         Write('0',' ')
       Esle
         Write(info[i].kol,' ');
End.