program nulw;
var a, b, summ, razn, proizv, chast: real;
begin
write('Введите два числа: ');
read(a, b);
a := abs(a);
b := abs(b);
summ := a + b;
proizv := a * b;
chast := a / b;
razn := a - b;
writeln('Сумма модулей -- ', summ:5:2);
writeln('Разность модулей -- ', razn:5:2);
writeln('Частное модулей -- ', chast:5:2);
writeln('Произведение модулей -- ', proizv:5:2);
end.