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

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.