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

Question

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

---

Answer 1

Ответ:

z= 21

Объяснение:

program alg;

var k,z: Integer;

begin

k:=3;

z:=0;

while k<=20 do</p>

begin

z:=z+k;

k:=k*2

end;

WriteLn('z= ', z)

end.