Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей — Pascal(Паскаль)

Program Begin11;

Var
  a, b: Real;

Begin
  ReadLn(a, b);
  WriteLn('Add: ', Abs(a) + Abs(b)); { Сумма }
  WriteLn('Sub: ', Abs(a) - Abs(b)); { Разность }
  WriteLn('Mul: ', Abs(a) * Abs(b)); { Произведение }
  WriteLn('Div: ', Abs(a) / Abs(b)); { Частное }
  ReadLn;

End.

Leave a Comment