Problem:
Score : 100 points

Problem Statement

Compute A \times B.

Constraints

1 \leq A \leq 100

1 \leq B \leq 100

All values in input are integers.

Input

Input is given from Standard Input in the following format:

A B

Output

Print the value A \times B as an integer.

Sample Input 1

2 5

Sample Output 1

10

We have 2 \times 5 = 10.

Sample Input 2

100 100

Sample Output 2

10000

Solution in Pascal (FPC 3.0.4) (judge verdict: Wrong Answer)

program hi;
var 
    a, ans: QWord;
    n, i: integer;
    ex: boolean = false;

begin
    readln(n);
    ans := 1;
    for i := 1 to n do begin
        read(a);
        if (ans > 1000000000000000000) then 
            ex := true;
        if (a = 0) then begin
            writeln(0);
            exit;
        end else if (a > 1000000000000000000) then 
            ex := true
        else
            ans := ans * a;
    end;
    if (ex) or (ans > 1000000000000000000) then 
        writeln(-1)
    else 
        writeln(ans)
end.