var
  s, x, n :longint;
  b: boolean;
begin
  s:=1; b:=false;
  write('n: '); readln(n);
  writeln('Seka:');
  repeat
    read(x);
    if x>n then
    begin
      s:=s*x;
      b:=true;
    end;
  until x=0;
  if b then writeln('Sandauga yra: ', s)
  else writeln('Nerasta');
end.