В Паскале:Среди заданных трех положительных чисел определить количество трехзначных чисел.

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017// Внимание! Если программа не работает, обновите версию!varanswer, a, b, c: integer;beginWriteln('Введите три значения');Readln(a, b, c);if (a >= 100) and (a <= 999) then inc(answer);if (b >= 100) and (b <= 999) then inc(answer);if (c >= 100) and (c <= 999) then inc(answer);Writeln('Количество трехзначных чисел равно ', answer);end.