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.
Эта программа буде работать, если последовательность будет оканчиваться нулем