1) (a3 + b3) - (a3 - 63)3 - 269; 3) 3a464(a4 - 64) - (a4 - 64)2;
2) (1 - a3b3)3 - (a’h3 - 1)3 - 2;
4) (c2 + d^)3 - 3c2d²(c2 + dº).​

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.

Объяснение:

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.