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

Question

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

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

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

Answer 1

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