Câu trả lời:

Program chiaqua;

Uses crt;

Var n,i,a:Longint;

S:INT64;

 

Begin

Clrscr;

 

Write('So em thieu nhi = ');

 

Readln(n);

 

S:=1; a:=1;

For i:=2 to n do

 

Begin

 

a:=a+3;

S:=S+a;

 

End;

 

Write('So goi qua chuan bi = ',S); Readln;