Помогите пожалуйста:) Pascal

Question

Помогите пожалуйста:) Pascal

---

Answer 1

Var x,k:integer;begink:=0;repeatwriteln('введите x');readln(x);if (x>1) then k:=k+1until x=0;write('k=',k);end.