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

Var a: array [1..50] of integer ;
d:integer; 

begin
write ('Введите первый член  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.