Напишите программу на языке программирования. Дана последовательность натуральных чисел оканчивающаяся 0. Найдите количество трехзначных среди них.
Var a, c: integer; begin c := 0; repeat read(a); if(a.ToString.Length = 3) then c := c + 1; until(a = 0); write(c); end.