Написать программу на языке Pascal которая вводит первых 50 членов арифметической прогрессии.Помогите пожалуйста..

var a: array [1..50] of integer ;d:integer; beginwrite ('Введите первый член  a1 = ');read(a[1]);write('Разность  d = ');read(d);writeln(a[1]);for var i:=2 to 50 do begin   a[i]:=a[1]+d*(i-1);   writeln(a[i]);end;end.