Program Znanija;
var
i, min:integer;
c:array[1..5] of integer;
begin

for i:=1 to 5 do 
read(c[i]);

min := c[1];

for i:=1 to 5 do 
if c[i] lt; min then   
min := c[i];

writeln(min);

end.