Массивы. Информатика). 10

Массивы. Информатика). 10 класс
http://informatics.mccme.ru/mod/statements/view3.php?id=11223amp;chapterid=1122711 на данном веб-сайте задали решить последующую задачку:
Напишите программу, которая наполняет массив из N элементов членами арифметической прогрессии с исходным значением X и разностью D .

Входные данные
Входная строчка содержит три целых числа: начальное значение X , разность D и размер массива N , разделённые пробелом. Гарантируется, что 0 lt; N 10000 .

Выходные данные
Программа обязана вывести содержимое массива: N первых членов арифметической прогрессии с исходным значением X и разностью D .

Образцы
входные данные
8 4 5
выходные данные
8 12 16 20 24
эту задачку необходимо решить на 100 баллов, чтоб высветилось ОК, а у меня частичное решение. Подскажите пожалуйста, что у меня не так
Вот мое решение:
Var A:array[1..10000] of integer;
i,x,d,n:integer;
Begin
readln(x,d,n);
A[n]:=x;
For i:=n-1 downto 1 do
A[i]:=A[i+1]+d;

for i:=n downto 1 do
write(a[i],' ');
End.
Заблаговременно спасибо:)