program n;

var max, min,temp:integer;

begin

 read(min);

 max:=min;

 while(true)do

 begin

   read(temp);

   if temp = 0 then break;

   if temp > max then max:=temp;

   if temp < min then min:=temp;    

 end;

 write(max - min);

end.

Эта программа буде работать, если последовательность будет оканчиваться нулем