assign(input_file,'u46.txt');
reset(input_file);

read(input_file,number);
min:=number;
if number<>-1 then begin
read(input_file,number);
end;
while (number <> -1) do begin
if number<min then begin
min:=number;
end;
read(input_file,number);
end;

write('the minimum of the numbers in u46.txt is ',min);
writeln;

end.