Пожалуйста посчитайте пожалуйста!Преобразуй алгоритм в программу на языке Паскаль

z= 21

program alg;

var k,z: Integer;

begin

k:=3;

z:=0;

while k<=20 do

begin

z:=z+k;

k:=k*2

end;

WriteLn('z= ', z)

end.