Помогите, пожалуйста. ОЧЕНЬ СРОЧНО

Question

Помогите, пожалуйста. ОЧЕНЬ СРОЧНО

---

Answer 1

K:=0;
repeat
readln(x);
if x>1 then k:=k+1;
until x=0;
writeln(k);
Значение переменной k после ввода чисел -10 и 3 будет равно 1