HRAshton Var
  a: array [1..5] of integer;
  i: byte;
  k: integer := Integer.MaxValue;

begin
  for i := 1 to 5 do
    readln(a[i]);
  for i := 1 to 5 do
    k := Min(k, a[i]);
  writeln(k);
end.