как написать программу которая вводит числа до тех пор, пока не будет введён 0. И подсчитайте их количество чисел!

Можно все было сделать одним оператором )))

Writeln('Всего чисел: ', ReadSeqIntegerWhile('Введите очередное число:',t->t<>0).Count)

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017// Внимание! Если программа не работает, обновите версию!beginvar ans:=1;while (ReadInteger('Введите очередное число:') <> 0)doinc(ans);Writeln('Всего чисел:', ans);end.