Решите задачу:

Даны 2 ненулевых числа. Найти сумму, разность, произведение и частное их модулей.

Желательно оформите, как решение задачи в Паскале

vara, b: integer;beginreadln(a, b);writeln('Сумма: ', abs(a)+abs(b));writeln('Разность: ', abs(a)-abs(b));writeln('Произведение: ', abs(a)*abs(b));writeln('Частное: ', abs(a)/abs(b));end.