Даны три числа найти разность между большим и меньшим числом
Var a,b,c:integer; function min(x1,x2:integer):integer; begin if x1end; function max(x1,x2:integer):integer; begin if x1end; begin readln(a,b,c); writeln( max( max(a,b) ,c ) - min ( min(a,b), c) ); end.