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

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