OtvetMailRu #11

// Напишите пожалуйста программу в Pascal, которая в последовательности
// натуральных чисел находит все числа кратные 3 и считает их количество.
// Гарантируется, что в последовательности найдется хоть одно число, кратное 3.

program OtvetMailRu;

const
  nmin = 1; // Минимальное кол-во чисел в последовательности
  nmax = 50;// Максимальное кол-во чисел в последовательности

var
  x: integer;
  i, n, count: byte;

begin
  repeat
    Write('Кол-во чисел в последовательности (', nmin, ' <= N <= ', nmax, '): '); ReadLn(n);
    if (n < nmin) or (n > nmax) then WriteLn('Значение вне допустимого диапазона...');
  until (nmin <= n) and (n <= nmax);

  count := 0; // Обнуляем счетчик

  for i := 1 to n do
  begin
    Write('Введите ', i, '-е число: '); ReadLn(x);
    if x mod 3 = 0 then Inc(count);
  end;
  WriteLn('Результат: ', count);
end.