Помогите решить.Написать программу которая вычислит сумму первых n членов ряда 1 5 9 13.Количество суммируемых членов задается во время работы программы.

var

a,b,c,d:integer;

begin

read(a);

c:=1;

for b:=1 to a do begin

d:=c+d;

c:=c+4;

end;

writeln(d);

end.