Заполнить массив числами кратными значению X. Число X и первое значение элемента массива вводятся с клавиатуры.

необходимо указать размер материального вознаграждения НАМ для решения ТВОЕЙ задачи, например банку пепси)
почитай про функции mod и div

write('vвведите первое значение массива = ');
readln(mas [ 1 ] );
а далее
for i := 2 to MasSize do
begin
заполнение
end;