program CountNumbers;
var
num, count: integer;
begin
count := 0;
repeat
Write('Введите число: ');
Readln(num);
if num <> 0 then
count := count + 1;
until num = 0;
WriteLn('Количество введенных чисел: ', count);
end.