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

Var k,m:real;
begin
   readln(m);
   readln(k);
   for var i:=0 to 20 do write('[',m+i*k,'] ');
end.