program ed;

uses crt;

var a:array[1..100] of integer;

b,i,n:integer;

Begin

n:=40; b:=3; a[1]:=12;

for i:=1 to n do

begin

a[i]:=a[1]+b*(i-1);

end;

writeln(a[30]);

readln;

End.