Відповідь:

{ Modul x. Pascal: }

function Modulx (x: Real) : Real;

begin

  if x <0 then

      Modulx := -x

 else

      Modulx := x;

end;

Пояснення:

оформлено як функція Pascal. тип аргументу - дійсне значення

якщо аргумент менше нуля, то результат = мінус аргумент,

інакше результат = аргумент