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

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
var
answer, a, b, c: integer;
begin
Writeln('Введите три значения');
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.