program lkszhd;vari,a,b,j,p,q:longint;code:integer;s:string;c:char;beginreadln(a);i:=0;while (a6174) or (i=7) dobeginstr(a,s);for j:=1 to 3 dobeginq:=j;for p:=j+1 to 4 doif s[p]>s[q] then q:=p;c:=s[j]...