Составить программку для ввода целочисленного массива из 10 чисел с клавиатуры

Решение задачки:
Код написан в программе PascalABC.NET.
const n = 10; //Пишем количество чисел в массиве.
Var a: array [1..n] of integer; //Описание массива.
i, sum: integer;
begin
sum:= 0;
for i:= 1 to n do
begin
write(a[, i, ] = );
readln(a[i]); //Ввод целочисленного массива.
sum:=sum+a[i]; //Вычисление суммы элементов введенного массива.
end;
writeln(Ответ: сумма одинакова , sum); //Вывод на экран ответа.
end.