Решить ) begin11°(в №3). даны два ненулевых числа. найти сумму, разность, произведение и частное их модулей.входные данные: ввести два целых числа а и b (1< =a,b< =100).выходные данные: вывести сумму, разность, произведение и частное их модулей с точностью до 3 цифр в дробной части в разных строках.
var a,b,S,R,P,CH:real;
beginwriteln('Введите два числа');
readln (a,b);
S:=abs(a) + abs(b);
R:=abs(a)- abs(b);
P:=abs(a) * abs(b);
CH:=abs(a)/abs(b);
writeln (S);
writeln (R);
writeln (P);
writeln (CH:3:2);
end.