Question

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

Answer 1

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.