答案：60

program abc;

var

a,n:integer;

begin

for n:= 30 downto 1 do

a:=(30-n+1)*2;

writeln(a);

readln

end.