Сумма случайных чисел. Циклы for, while

Program RandomArray;
Var
i, Summa : Integer;
A : array [1..10] of Integer;
begin
write('Сгенерировано 10 целых чисел ');
Summa := 0;
for i := 1 to 10 do begin
A[i] := Random(10); { Random генерирует случайные числа в диапазоне от 0 до числа, указанного в качестве параметра, уменьшенного на единицу. }
write(A[i]: 4); { Вывести значение текущего элемента массива без перехода на новую строку. Значения выводятся в форматированном варианте. }
Summa := Summa + A[i];
end;
writeln; { Перейти на новую строку }
writeln('Сумма = ', Summa);
end.

begin
Var A : array [1..10] of Integer; // Используется статический массив, вместо рекомендуемого динамического.

Print('Сгенерировано 10 целых чисел ');
var Summa : Integer := 0;
for var i := 1 to 10 do begin
A[i] := Random(10); // Random генерирует случайные числа в диапазоне от 0 до числа, указанного в качестве параметра, уменьшенного на единицу.
write(A[i]: 4); // Вывести значение текущего элемента массива без перехода на новую строку. Значения выводятся в форматированном варианте.
Summa += A[i];
end;
Println; // Перейти на новую строку.
Println('Сумма = ', Summa);
end.

Program RandomArray;
Var
i, n, Summa : Integer;
A : array [1..20] of Integer;
begin
write('Введите количество чисел (не больше 20) ');
readln(n);
write('Сгенерированы числа: ');
Summa := 0;
i := 1;
while i <= n do begin
A[i] := Random(31)+30; { Random генерирует случайные числа в диапазоне от 0 до числа, указанного в качестве параметра, уменьшенного на единицу. }
write(A[i]: 4); { Вывести значение текущего элемента массива без перехода на новую строку. Значения выводятся в форматированном варианте. }
Summa := Summa + A[i];
i := i + 1;
end;
writeln; { Перейти на новую строку }
writeln('Сумма = ', Summa);
end.

begin
var n := ReadInteger('Введите количество чисел'); // Для ввода используется рекомендованная функция ReadInteger.
var A : array of Integer := new integer[n]; // Используется динамический массив.

Println('Сгенерированы числа: ');
var Summa : Integer := 0;
var i : Integer := 0;
while i <= n-1 do begin
A[i] := Random(31)+30; { Random генерирует случайные числа в диапазоне от 0 до числа, указанного в качестве параметра, уменьшенного на единицу. }

{
Вывести значение текущего элемента массива.
По умолчанию между числами будет выводиться один пробел.
Чтобы сделать дополнительный отступ, добавлена строка из нескольких пробелов.
}
Print(A[i], ' ');

Summa += A[i]; // Используется расширенное присваивание.
i += 1;
end;
Println; // Перейти на новую строку.
Println('Сумма = ', Summa);
end.

Program RandomArray;
Var
i, n, Number, Summa : Integer;
begin
write('Введите количество чисел ');
readln(n);
write('Сгенерированы числа: ');
Summa := 0;
for i := 1 to n do begin
Number := Random(101)-50; { Random генерирует случайные числа в диапазоне от 0 до числа, указанного в качестве параметра, уменьшенного на единицу. }
write(Number: 4); { Вывести значение сгенерированного числа, без перехода на новую строку. Значения выводятся в форматированном варианте. }
if Number > 0 then Summa := Summa + Number;
end;
writeln; { Перейти на новую строку }
writeln('Сумма = ', Summa);
end.

begin
var n := ReadInteger('Введите количество чисел'); // Для ввода используется рекомендованная функция ReadInteger.
Println('Сгенерированы числа: ');
var Summa : Integer := 0; // При описании используется инициализация переменной.
for var i := 1 to n do begin
var Number := Random(101)-50; // Random генерирует случайные числа в диапазоне от 0 до числа, указанного в качестве параметра, уменьшенного на единицу.
Println(Number); // Вывести значение сгенерированного числа.
if Number > 0 then Summa += Number; // Используется расширенное присваивание.
end;
Println('Сумма = ', Summa);
end.