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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.