Program enot;
const n = 10;
Var a: array [1..n] of integer;
i,min,max:integer;
begin
for i:= 1 to n do
a[i]:=random(51);
min:=a[1];
max:=a[1];
for i:= 1 to n do 
begin
  if a[i]<min then min:=a[i];
  if a[i]>max then max:= a[i];
 end;
writeln(max-min);
end.