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

Question

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

Answer 1

var
a, b: real;
begin
write('Введите два ненулевых числа: ');
readln(a, b);
a := abs(a); { <-- Вычисляем модуль числа a }
b := abs(b); { <-- Вычисляем модуль числа b }
writeln('Результат:');
writeln('Сумма модулей: ', a + b);
writeln('Разность модулей: ', a - b);
writeln('Произведение модулей: ', a * b);
writeln('Частное модулей: ', a / b);
readln
end.