program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  S, X: Integer;

begin
  S:= 1;
  repeat
    Readln(X);
    S := S * X;
  until X =0 ;
  Writeln('S=', S);
  Writeln('Press Enter to exit...');
  Readln;
end.

uses
  SysUtils;

begin
  { TODO -oUser -cConsole Main : Insert code here }
end.