Помогите пожалуйста! Надо написать программу на паскале, вот условие: числовой ряд (арифметическая прогрессия) задается двумя числами n и k . Первое число=n, каждое следующее на k больше предыдущего. По двум числам n и k вывести первые 100 членов прогрессии

var n,k,i: integer;beginread(n,k);for i := 1 to 100 do write(n + k*(i-1),' ')либоfor i := 1 to 100 do begin write(n,' '); n := n + k endend.