Даны три числа найти разность между большим и меньшим числом

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.