Відповідь:
{ Modul x. Pascal: }
function Modulx (x: Real) : Real;
begin
if x <0 then
Modulx := -x
else
Modulx := x;
end;
Пояснення:
оформлено як функція Pascal. тип аргументу - дійсне значення
якщо аргумент менше нуля, то результат = мінус аргумент,
інакше результат = аргумент
