Как в паскале из функции max вычесть min (предварительно вычислив их значения)

Question

Как в паскале из функции max вычесть min (предварительно вычислив их значения)

Comments

Например, вот так max(a,b)-min(a,b), где max и min - предварительно созданные функции.

---

В основе которых идет сравнение двух элементов, и возврат меньшего/большего.

Answer 1

var

a,b:integer;

function max(a, b:integer): integer;

begin

   if a >= b then

       max:=a else max := b; end;

function min(a, b:integer): integer;

begin

if a

       min := a  else  min := b;

end;

begin

   write ('Введите число a ');

   readln (a);

   

   write ('Введите число b ');

   readln (b);

 

writeln(max(a,b)-min(a,b));

end.