Ввести с клавиатуры два числа x, y. Большее число заменить на частное, x на y. Меньшее число заменить на остаток от деления х на у

program z1;var  x, y: integer;  max, min: real;beginreadln(x, y);max := 0; min := 0;if x > y then beginmax := x / y;min := x mod y;writeln(max, ' ', min);end;if x < y then beginmin := x / y;max := x mod y;writeln(max, ' ', min);end;end.