Отыскать сумму арифм прогресии где An=An-1+3 Вывести саму послед

Вот программка на ABC Pascal

program progress;

var a,n,i,sum:integer;

begin cls;

write('Введите 1-ый член прогрессии a1 = ');

readln(a);

write('Введите длину последовательности (сколько частей) ');

readln(n);

sum:=a;

write(a,'  ');

for i:=2 to n do begin

a:=a+3;

write(a,'  ');

sum:=sum+a

end;

writeln;

write('Сумма ',n,' частей прогрессии равна ',sum)

end.