Рассчитать число осколков, полученных в результате деления тела за N миллисекунд, если каждый осколок делится на два за одну миллисекунду — Pascal(Паскаль)

var n,i:integer;
      k:longint;
begin
repeat
write('Введите N до 30 n=');{больше не хватит типа longint}
readln(n);
until n in [1..30];
k:=0;p:=1;
for i:=1 to n do
 begin
  p:=p*2;
  k:=k+p;
 end;
write('Количество осколков=',k);
readln
end.