var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) and (b>c) then writeln('c=',c,'b=',b,'a=',a) else
if (b>a) and (b>c) and (a>c) then writeln('c=',c,'a=',a,'b=',b) else
if (c>a) and (c>b) and (b>a) then writeln('a=',a,'b=',b,'c=',c) else
if (a>b) and (a>c) and (c>b) then writeln('b=',b,'c=',c,'a=',a) else
if (b>a) and (b>c) and (c>a) then writeln('a=',a,'c=',c,'b=',b) else
if (c>a) and (c>b) and (a>b) then writeln('b=',b,'a=',a,'c=',c) else
readln;
end.
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) and (b>c) then writeln('c=',c,'b=',b,'a=',a) else
if (b>a) and (b>c) and (a>c) then writeln('c=',c,'a=',a,'b=',b) else
if (c>a) and (c>b) and (b>a) then writeln('a=',a,'b=',b,'c=',c) else
if (a>b) and (a>c) and (c>b) then writeln('b=',b,'c=',c,'a=',a) else
if (b>a) and (b>c) and (c>a) then writeln('a=',a,'c=',c,'b=',b) else
if (c>a) and (c>b) and (a>b) then writeln('b=',b,'a=',a,'c=',c) else
readln;
end.
Я не уверен, но наверно как то так
Var i, j, l:Integer ;
A:array[1..100,1..100,1..100]of Integer ;
Begin
For i:=1 to 10 do
For j:=1 to 10 do
For l:=1 to 10 do begin
A[i,j, l]:=random(10);
Write ('A[', i, ', ', j, ', ', l, ']= ', A[i, j, l]) ;
End ;writeln;
For i:=1 to 10 do
For j:=1 to 10 do
For l:=1 to 10 do begin
A[i, j, l] :=A[i, j, l] *(i+j+l) ;
Write ('A[', i, ', ', j, ', ', l, ']= ', A[i, j, l]) ;
End;
End.