head2last

uses crt;

procedure solve();
var
  i,n,num,min,max:longint;
  st:string;
begin
  write('input: '); readln(num);
  str(num,st);
  n:=length(st);
  min:=num;
  max:=num;
  for i:=2 to n do
    begin
      st:=st+st[1];
      st:=copy(st,2,n);
      val(st,num);
      if st[1]<>'0' then
        begin
          if num<min then min:=num;
          if num>max then max:=num;
        end;
    end;
  writeln('max: ',max);
  writeln('min: ',min);
end;

begin
  clrscr();
  solve();
  readln();
end.