Вводить с клавиатуры числа, пока не будут введен 0. найти количество введенных чисел.

Var
i,x:integer;

begin
i:=0;
while x<>0 do
begin
 readln(x);
 i:=i+1;
end;
writeln(i);
end.