Вывести на экран массив чисел первый элемент которого равен м в котором каждый следующий элемент больше предыдущего на к числа м и к вводятся с клавиатуры

program zz1;

const n = 50; / / задаем количество элементов в массиве

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

mas:array [1 ... n] of integer;

begin

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

read (m);

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

read (k);

mas[1]:=m;

for i:=2 to n do

mas[i]: = mas[i-1] + k; / / получаем следующий элемент массива

for i:=1 to n do / / выводим полученный массив на экран

write (mas[i],' ');

end.