program RandomIntegers;

uses
  SysUtils;

var
  n, M, i, x, y: Integer;

begin
  // Input for number of random integers and the maximum limit M
  Write('Enter the number of random integers (n): ');
  ReadLn(n);
  Write('Enter the maximum value (M): ');
  ReadLn(M);

  Randomize; // Initialize random number generator
  
  for i := 1 to n do
  begin
    x := Random(M + 1); // Generate a random integer between 0 and M
    
    // Apply the function based on whether x is odd or even
    if x mod 2 = 0 then
      y := x * x * x // Cube for even x
    else
      y := x; // Same value for odd x
    
    // Display x and corresponding y
    WriteLn('x = ', x, ', y = ', y);
  end;
end.