Найти произведение чисел, если они имеют одинаковый знак, иначе определить их сумму - Turbo Pascal

Формулировка задачи:

Даны числа X и Y отличные от нуля. Найти произведение этих чисел,если они имеют одинаковый знак,иначе определить их сумму.

Решение задачи: «Найти произведение чисел, если они имеют одинаковый знак, иначе определить их сумму»

Листинг программы

var
  x, y, res : real;
begin
  repeat
    write('введите x и y отличные от нуля: ');
    readln(x, y)
  until (x <> 0) and (y <> 0);
  if x * y > 0 then writeln('произведение: ', x * y)
  else writeln('сумма: ', x + y);
  readln
end.

Объяснение кода листинга программы

В начале объявляются три переменные: x, y и res типа real.
Затем идет цикл repeat-until, который выполняется до тех пор, пока x и y не станут отличными от нуля.
Внутри цикла считываются значения x и y с помощью функции readln.
После выхода из цикла проверяется, что x и y не равны нулю.
Если x * y > 0, то выводится произведение чисел.
Если x * y <= 0, то выводится сумма чисел.
После окончания программы выводится символ новой строки с помощью функции readln.