PascalABCУченик писал программку для сопоставленья значений суммы некой последовательности,

PascalABC
Ученик писал программу для сравнения значений суммы некоторой последовательности, вычисленных впрямую и по формуле. У него вышла вот такая программа:
var a,x,n,i,s1,b:integer;
s2:real;
begin
readln(n);
a:=4;
x:=3;
s1:=0;
for i:=1 to n do begin
s1:=s1+a;
a:=a+x;
end;
s2:=(2*b+(n-1)*x)*0.5*n;
writeln(s1);
writeln(s2);
end.
К сожалению, его программка работает ошибочно из-за того, что переменной b не присвоено изначальное значение. Какое изначальное значение нужно присвоить переменной b?