Решить в паскале в первый день рабочий произвел х деталей. во второй и в последующие дни он увеличивал норму предыдущего дня в 2 раза. сколько деталей он делал каждый день данной недели?

Var x,i:integer;
begin
readln(x);
for i:=2 to 7 do
 begin
 x:=2*x;
 writeln(i,': ',x);
 end;
end.

Пример:
2
2: 4
3: 8
4: 16
5: 32
6: 64
7: 128