program z1325;
uses crt;
var f:text;
max,min,n:integer;
BEGIN
assign(f,'c:\work\dokument.txt');
reset(f);
max:=-maxint;
min:=maxint;
while not eof(f) do begin
read(f,n);
if n>max then max:=n;
if n end;
writeln('max-min=', max-min);
close(f);
readln;
END.