Даны 3 тройки чисел a1,b1,c1; a2,b2,c2; a3,b3,c3.

[Evgenii_95]

Даны 3 тройки чисел a1,b1,c1; a2,b2,c2; a3,b3,c3.
Найти в каждой из них наибольшее и наименьшее, а затем наибольшее и наименьшее среди наибольших и отдельно среди наименьших.найти с помощью procedure

[Stilet]

...
procedure max(a,b,c:integer; var q:integer);
begin
 if a>b then if b>c then q:=b else q:=c;
 if a<b then if a<c then q:=c else q:=a;
end;
...
var a1,b1,c1, a2,b2,c2, a3,b3,c3:integer;
begin
... Вводим
 max(a1,b1,c1,a1);
 max(a2,b2,c2,a2);
 max(a3,b3,c3,a3);
 max(a1,a2,a3,a1);
... Выводим а1
end.

Это если не ошибаюсь в стратегии..

[Evgenii_95]

var a1,b1,c1,a2,b2,c2,a3,b3,c3:integer;
max1,max2,max3,min1,min2,min3:integer;
max,min,rar:integer;
procedure pr(a,b,c:integer;var z,w:integer);
begin
if (a>=b) and (a>=c)then z:=a;
if (a<b)  and (a<c) then w:=a;
if (b>=a) and (b>=c)then z:=b;
if (b<a)  and (b<c) then w:=b;
if (c>=a) and (c>=b)then z:=c;
if (c<a)  and (c<b) then w:=c;
end;
begin
read(a1,b1,c1);
pr(a1,b1,c1,max1,min1);
read(a2,b2,c2);
pr(a2,b2,c2,max2,min2);
read(a3,b3,c3);
pr(a3,b3,c3,max3,min3);
pr(max1,max2,max3,max,rar);
pr(min1,min2,min3,rar,min);
write(max,' ',min);
end.

Сделали так