var i,max,min,imax,imin,x:integer; begin readln(x); max:=x; min:=x; imax:=1; imin:=1; i:=1; repeat readln(x); if x=0 then break; inc(i); if x>max then begin max:=x; imax:=i end; if x<=min then
if x<=min then begin min:=x; imin:=i end; until x=0; writeln('Максимум: ',max,' в позиции: ',imax); writeln('Минимум: ',min,' в позиции: ',imin); writeln('Произведение: ',max*min); readln; end.