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

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

program progress;

var a,n,i,sum:integer;

begin cls;

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