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

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

write('the sum of the numbers in u45.txt is ',min);
writeln;

end.