Program MultTwo;
    {This program reads in two numbers and prints the product}
      Uses Multiply;
      Var
        FirstNumber : Integer {The first number};
        SecondNumber : Integer {The second number};
        MyResult : Integer {The answer};
    begin
      readln(
        FirstNumber,
        SecondNumber);
      MyResult := MultiplyTwoNumbers(
        FirstNumber,
        SecondNumber);
      writeln(
        'The first: ',
        FirstNumber,
        ' The Second: ',
        SecondNumber,
        ' The Product: ',
        MyResult);
      end.