В Pascal можно решить данную задачу с помощью условных операторов `if-then-else`. Следует проверить условия и в зависимости от них вычислить значение переменной `y`.

pascal

program Solution;



var

  a, b, y: Real;



begin

  // Ввод значений a и b

  writeln('Введите значения a и b:');

  readln(a, b);



  // Проверка условий и вычисление значения y

  if (a > 6) and (a + b > 0) then

    y := a / b

  else if (a > 6) and (a + b <= 0) then

    y := max(a, b)

  else

    y := min(a, b);



  // Вывод результата

  writeln('Значение y:', y);

end.

В данной программе сначала происходит ввод значений переменных `a` и `b` с помощью `readln`. Затем с помощью условных операторов проверяются условия и в зависимости от них вычисляется значение переменной `y`. Функции `max` и `min` используются для определения максимального и минимального значения из двух чисел соответственно. Наконец, результат выводится с помощью `writeln`.