- СРОЧНО- - ОЧЕНЬ БЛАГОДАРНА БУДУ____)))) Разработать схему алгоритма, который запрашивает N произведений целых чисел и ищет их сумму , число N вводится ч клавиатуры. (где) S-cумма ; K- первое число; M-последнее число; i-счетчик

Program task1;
var n, S, k, i: integer;
begin
write(Кол-во чисел = );
readln(n);
S := 0;
For i := 1 to n do
begin
write(Введите число );
readln(k);
S := S + k
end;
writeln(Сумма введенных произвольных чисел = , s);
end.