Даны два числа. Определить модуль какого числа больше. Модуль на языке Паскаль.

unit MaxMod; interface function MaxMod2(a,b:real):real; implementation function MaxMod2(a,b:real):real; begin    if abs(a)>abs(b) then MaxMod2:=a    else MaxMod2:=b end; end. Компилируем в MaxMod.tpu и пишем тестовую программу uses MaxMod, Crt; var    x,y:real; begin    ClrScr;    Read(x,y);    Writeln(MaxMod2(x,y));    ReadKey end.