Question

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

Answer 1

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