var i: integer;
begin
   i := 0;
   while i < 100000 do
   begin
      writeln( 'X': round( 20 + 20*sin(i/20)) );
      i := i+1
   end;
end.



begin





  writeln( PI );
  writeln( PI:10:5 )

end.



program project2;

var zn: char;
     x: integer;
begin

  read( zn );
  x := 0;

  while not ((zn >= '0') and (zn<='9')) do
     read( zn );

  while (zn >= '0') and (zn<='9') do
  begin
    x := 10*x + ord(zn) - ord('0');
    read( zn )
  end;

  writeln( x );

  write( x+1 );
  readln;
  readln

end.
----------------------------------
var
  x, minule: integer;
  rostla, klesla, stejna: boolean;


{ huhuihuih iu huih ui }

{ komentar }



{$B+}
{$B-}


begin
  rostla := FALSE;
  klesla := FALSE;
  stejna := FALSE;
  read( minule );
  read( x );
  while x<>0 do
  begin
    if x > minule then
                     rostla := TRUE
                  else
    if x < minule then
                     klesla := TRUE
                  else
                     stejna := TRUE;
    minule := x;
    read( x )
  end;

  if rostla then
     if klesla then
        write( 'NENI MONOTONNI' )
               else
        if stejna then
           write( 'NEKLESAJICI' )
                  else
           write( 'ROSTOUCI' )
            else
     if klesla then
        if stejna then
           write( 'NEROSTOUCI' )
                  else
           write( 'KLESAJICI' )
               else
           write( 'KONSTANTNI' );
  readln;
  readln;
end.