Две решил. Но последняя не получается. Точнее получается, но не со всеми значениями. var a,b,c,n,m,m1,m2,k,l:word; begin //repeat readln(a,b,c); (*until*) if ((a<>0) or (b<>0) or (c<>0)) and ((a mod 2=0) or (b mod 2=0) or (c mod 2=0)) then begin m:=a; k:=b; l:=c; if (b then begin m:=b; k:=a; l:=c; end; if (c then begin m:=c; k:=b; l:=a; end; n:=m; m1:=k; m2:=l; if m1>l then begin m1:=l; m2:=k; end; write(m2,m1,n); (*n:=m2*100+m1*10+n; write(n);*) end else exit; end.program zp; С какими значениями не проходит узнать не получается. Так как проверяет удалённый сервер. Где может быть ошибка?