Program qq;
Var Min, max, n: integer;
Begin
Readln(n);
If n <> 0 then begin
Max:=n
Min:=n;
End;
While n<>0 do
Begin
Readln(n);
If n<> 0 then begin
If n>max then
Max:=n
Else if n<min then
Min:= n;
End;
End;
Writeln(max, ' - max, ', min, ' - min');
End.
