Var m:byte;
 Begin
    Readln(m);
    Case m of
       1  :writeln('Январь');
       2  :writeln('Февраль');
       3  :writeln('Март');
       4  :writeln('Апрель');
       5  :writeln('Май');
       6  :writeln('Июнь');
       7  :writeln('Июль);
       8  :writeln('Август');
       9  :writeln('Сентябрь');
      10 :writeln('Октябрь');
      11 :writeln('Ноябрь');
      12 :writeln('Декабрь');
     end;
End.

CONST
 Month:ARRAY[1..12] of STRING=('January',
                               'February',
                               'March',
                               'April',
                               'May',
                               'June',
                               'July',
                               'August',
                               'September',
                               'October',
                               'November',
                               'December');
Var
 n:BYTE;
Begin
 Write('Enter the number of month ');
 ReadLn(n);
 WriteLn(Month[n]);
 ReadLn;
End.

Uses crt;
Const n=15;
Var i,j:byte;
     a:array[1..n]of integer;
     p:integer;
Begin
Clrscr;
Randomize;
  For i:=1 to n do
  A[i]:=random(100)-50;

  For i:=1 to n do
  Write(a[i]:5);
 Writeln;
 For i := n downto 2 do
        For j := 2 to i do
          if A[j] < A[j-1] then
            begin
              p := A[j];
              A[j] := A[j-1];
              A[j-1] := p;
            end;

  For i:=1 to n do 
  If a[i]>0 then write(a[i]:5);
 End.

Var 
       text:string;
       i,k:byte;
       s:char;
 Begin
      s:=' ';
      k:=1;
      ReadLn(text);
      For i:=1 to length(text) do
        If text[i]=s then k:=k+1;
      Writeln(k);
End.