var  a:array[1..4] of integer;
i,min,max:integer;
begin
writeln('введите 4 числа');
for i:=1 to 4 do read(a[i]);
min:=a[1];
max:=a[1];
for i:=1 to 4 do
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
writeln('max-min=',max-min);
end.