program bai_giai;
uses crt;
var f:text;
d,nn,n:integer;
function min(x,y:integer):integer;
begin
if x>y then min:=y else min:=x;
end;
BEGIN
clrscr;
Assign(f,'Y:\kiemtra.txt'); reset(f);
d:=0;
while not eof(f) do
begin
read(f,n); d:=d+1;
if d=1 then nn:=n
else nn:=min(nn,n);
end;
write(nn);
readln;
end.