В программе Pascal ABC составьте программу, которая вычисляет произведение n чисел вводимых с клавиатуры.

Var
    sum, k, n, i: integer;
begin
    sum := 0;
    write(n: );
    readln(n);
    for i := 1 to n do
    begin
        readln(k);
        sum := sum + k;
    end;
    writeln(sum = , sum);
end.