Question

Помогите, пожалуйста, составить программу. Срочно!​

Answer 1

var k, x : integer;

begin

k := 0;

repeat

readln(x);

if x > 1 then

   k := k + 1;

until x = 0;

writeln(k);

end.