Программа ABCpascal:
Ввести с клавиатуры два числа, если произведение этих чисел положительно, то найти их разность, а иначе найти их деление.

Вы можете с таким же успехом просто писать комментарий

// Эту программу написал я, Вася

Это лучше, чем Program Vasya;

Ага

Добавил Вам фрагмент из Справки по языку

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var (a, b) := ReadReal2;

 if a * b > 0 then Println(a - b)

 else Println(a / b)

end.