var s: string;
begin
   s := 'abcd';
   write( ord( s[0] ) );
   writeln;


   s := 'Popocatepetl';
   writeln( pos( 'po', s ) )




end.


var
   s: string;
   zn: char;
   pocet: integer;
begin
   pocet := 0;
   s := '';

   read( zn );
   while zn<>'.' do
   begin
      pocet := pocet+1;
      { s := s + zn; {}
      s := zn + s;
      (*
      s[ pocet ] := zn;
      s[ 0 ] := chr( pocet ); *)
      read( zn )
   end;

   writeln( 'Takhle vypada s: ',s )
end.


   s := 'ahoj';

   s[2] := 'x';







const
   DNY: array[1..12] of integer
   = (0,31,59, 90, 120, 1,1,1,1,1,11,1);
var  d,m,r: longint;
     x: longint;
begin
   read( d,m,r);

   r := r-1 ;
   x := 365*r + r div 4 - r div 100 + r div 400
       + DNY[ m-1 ] + d;

   write( x mod 7 );

   DNY[1] := 777



end.






var
   A: array[1..10] of integer;
   pocet: integer;
   x,i: integer;
begin
   pocet := 0;

   read( x );
   while x<>-1 do
   begin
      Inc( pocet );
      A[ pocet ] := x;

      read( x )
   end;

   for i := 1 to pocet do
      write( A[i],' ' );

   writeln;
   writeln;
   writeln;
   writeln;

end.







const
   B: array[11..12, 1..3, boolean] of char
    = ( (
           ('a','A'),
           ('b','B'),
           ('c','C')
        ),
        (
           ('e','E'),
           ('f','F'),
           ('g','G')
        )
      );
begin
   write( B[11,2,FALSE] );
   write( B[11,2,TRUE] );
end.



const
   A: array[11..12, 1..3] of char
    = ( ( 'a', 'b', 'c' ),
        ( 'e', 'f', 'g' )
      );
begin
   write( A[11,2] )
end.






const
   N = 1000;
var
   JePrvocislo: array[2..N] of boolean;
   i,j: integer;
begin
   for i:=2 to N do
      JePrvocislo[ i ] := TRUE;

   for i:=2 to N do
      if JePrvocislo[ i ] = TRUE then
      begin
         write( i,' ' );
         for j:=2 to (N div i) do
            JePrvocislo[ j*i ] := FALSE
      end
end.












const
   sifra: array['a'..'z'] of char
   = ( 'e','b','c','t','a','f','g','h',
       'y','j','k','l','n','m','o','p',
       'q','r','z','d','u','w','v','x','i','s' );

var
   zn: char;
begin
   read( zn );
   while zn<>'@' do
   begin
      if (zn>='a') and (zn<='z') then
                                    write( sifra[ zn ] )
                                 else
                                    write( zn );
      read( zn )
   end;
end.





var
   pole: array['a'..'z'] of integer;
   zn: char;
begin

   for zn := 'a' to 'z' do
      pole[ zn ] := 0;

   read( zn );
   while zn<>'@' do
   begin
      if (zn>='a') and (zn<='z') then
         Inc( pole[ zn ] );

      read( zn )
   end;

   for zn := 'a' to 'z' do
      write( zn,': ', pole[ zn ]:5 )




end.









const
   MAX = 100;
var
   zn: char;
   pole: array[1..MAX] of char;
   pocet,i,j: integer;
begin

   writeln;
   writeln;
   writeln;
   writeln;

   pocet := 0;

   read( zn );
   while (zn >= 'a') and (zn <='z')
      or (zn >= 'A') and (zn <='Z') do
   begin
      pocet := pocet+1;
      pole[ pocet ] := zn;

      read( zn )
   end;

   for i:=1 to pocet do
      write( pole[i] );
   writeln;

   for j:=1 to 10 do
      for i:=pocet downto 1 do
         write( pole[i] )



end.












var
   i: longint;
begin
   for i:=1 to 100000 do
   begin
      write( i,#13 );
   end
end.                d

begin
   writeln( 'abcd',chr(10),'efgh', #10, 'ijkl' )
end.


var
   i: integer;
begin
   for i:=1 to 30000 do
   begin
      writeln( i );

      if i=777 then
                 i := 30001

   end
end.





const
   Tisic = 10;

var i: integer;
    p: array[1..Tisic] of integer;

begin
   for i:=1 to Tisic do
   begin
      read( p[i] );
      if p[i]=6 then
                  continue;

      p[i] := p[i]*p[i];
   end;

   for i:=1 to Tisic do
      write( p[i],' ' );
   writeln;
   for i:=1 to Tisic do
      write( p[i],' ' )
end.




const
   Tisic = 1000;

var i: integer;
    p: array[1..Tisic] of integer;

begin
   for i:=1 to Tisic do
   begin
      read( p[i] );
      if p[i]=-1 then
                   break
   end;

   for i:=i downto 1 do
      write( p[i],' ' )
end.





const
   Tisic = 1000;

var i: integer;
    p: array[1..Tisic] of integer;

begin
   for i:=1 to Tisic do
      read( p[i] );
   for i:=Tisic downto 1 do
      write( p[i],' ' )
end.