program array_return(output);
type i5 = integer value 5;
arr_type = array[1..10, 1..10, 1..10] of i5;
var arr : arr_type;
a, b, c : integer;
function x(a, b, c : integer) : arr_type;
begin
x := arr;
end;
begin
a := 2;
b := 3;
c := 4;
writeln(x(a, b, c)[6, 7, 8]); {5}
end.