Компьютерный вирус размножается, создавая свою копию при каждом включении компьютера. При следующем включении каждая копия

Возможный вариант правильного решения (Pascal)
var
i,N:integer;
K:longint;
begin
readln(N);
K:=1;
for i:=1 to N do k:=K*2;
writeln(k);
end.