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