program test;
type
  PReal = ^double;
  PPReal = ^PReal;
var
  x,y,z : integer;
  i,j,k : integer;
  data : ^PPReal;
begin
    writeln('Enter X, Y, Z size: ');
    read(x,y,z);

    GetMem( data, sizeof(PPReal)*x );
    for i:=0 to x-1 do begin
      GetMem( (data+i)^, sizeof(PReal)*y );
      for j:=0 to y-1 do begin
        GetMem( ((data+i)^+j)^, sizeof(real)*z );
      end;
    end;

    for i:=0 to x-1 do begin
      for j:=0 to y-1 do begin
        writeln(i,' ',j,' *');
        Dispose( ((data+i)^+j) );
      end;
      writeln(i,' ',j);
      Dispose( (data+i) );
    end;
    Dispose( data );
end.