Câu trả lời:

program bai1;

uses crt;

var i,n,s:integer;

begin

s:=0;

for i:=1 to 30 do s:=s+i;

writeln(s);

readln

end.