Добрый день! решить в paskal. вводится натуральное число n. вычислить 2^1+2^2+2^n

Program test ;
Var
N, num:integer;
Begin
Readln(N) ;
Num:=(2*1) +(2*2) +(2*N) ;
Writeln(num) ;
end.