нужна блок схема или хотя бы программаПожалуйста посчитайте пожалуйстасрочно надо

program Var8;
var a,n:integer;
begin
a:=0;
For n:= 1 to 15 do begin
  If (n mod 2 = 0) then
     a:=n*n+1
  else a:= n*n + 2*n;
writeln(a);
end;
end.