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

Question

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

---

Comments

Паскаль пойдёт?

---

он и нужен

---

Проверяю

Answer 1

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.

Comments

это точно правильно?

---

Да, 146%

---

спасибо:3