program small_l;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var

  num , max , min : integer ;
  avg : real  ;


begin
     writeln ( ' @_@ enter asequence of psitive # fineshed by ( -1 ) @_@ ' );
     writeln ( ' --------------------------------------------------------');
     writeln;
     read ( num );
     max := num ;
     min := num ;

     while num <> -1 do

      begin
      if max < num then max := num
      else if min > num then min := num  ;
      read (num );
      end;
      writeln;
      writeln ('* --> largest numbers = ' , max );
      writeln ('* --> smallest numbers = ' , min );
    readln;
    readln
end.