Напишите программу на языке программирования. Дана последовательность натуральных чисел оканчивающаяся 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.