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

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.