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

Program n1;var a,b: real;beginreadln(a,b);a:=abs(a);b:=abs(b);writeln(a+b);writeln(a-b);writeln(a*b);writeln(a/b); end.