uses crt;
function Sred(x,y,z:integer):integer;
var mx,mn,sr:integer;
begin
mx:=x;
if y>mx then mx:=y;
if z>mx then mx:=z;
mn:=x;
if y<mn then mn:=y;
if z<mn then mn:=z;
sr:=x+y+z-mx-mn;
Sred:=sr;
end;
var x1,y1,z1,x2,y2,z2,x3,y3,z3,s1,s2,s3:integer;
begin
clrscr;
writeln('Введите 3 тройки чисел:');
writeln('Первая тройка:');
readln(x1,y1,z1);
writeln('Вторая тройка:');
readln(x2,y2,z2);
writeln('Третья тройка:');
readln(x3,y3,z3);
s1:=Sred(x1,y1,z1);
s2:=Sred(x2,y2,z2);
s3:=Sred(x3,y3,z3);
if Sred(s1,s2,s3)=s1 then
write('Среднее из средних=',s1, 'тройка номер 1')
else if Sred(s1,s2,s3)=s2 then
write('Среднее из средних=',s2, 'тройка номер 2')
else if Sred(s1,s2,s3)=s3 then
write('Среднее из средних=',s3, 'тройка номер 3');
readln
end.