Дан массив из 10 элементов. Необходимо заполнить его первыми 10 членами арифметической прогрессии с заданными первым членом прогрессии aa и её разностью p.

Формат входных данных

С клавиатуры вводятся целые числа aa и pp (−100≤a,p≤100−100≤a,p≤100).
Формат выходных данных

Требуется вывести содержимое массива после заполнения согласно условию задачи. Элементы должны разделяться пробелами.

const n=10;var ar:array[1..n] of integer;a,p,i:integer;beginwrite('a = ');readln(a);write('p = ');readln(p);ar[1]:=a;for i:=2 to n do ar[i]:=ar[i-1]+p;for i:=1 to n do write(ar[i],' ');end.Пример:a = 2p = 52 7 12 17 22 27 32 37 42 47