Найти сумму чисел. Числа ввести с клавиатуры. Написать программу

program zz1;

var n, a, r, i:integer; / / задаем переменные целого типа

begin

write (' введите количество чисел '); / / вводим с клавиатуры число

read (n);

for i:=1 to n do / / организуем цикл на n повторений

begin

writeln (' ведите число ');

read (a); / / вводим очередное число с клавиатуры

r:=r + a; / / вычисляем сумму чисел, прибавляя очередное число к сумме

end;

write (' сумма чисел = ', r); / / выводим ответ

end.