Перед початком
повені рівень води у річці становив Н м. Під час
повені кожну годину рівень води зростав на Р % від
рівня попередньої години. Яким буде рівень води
через N годин після початку повені? Через скільки
годин після початку повені рівень води буде не
менше, ніж K м?

Var  a: array of integer;    
       i, n, x, digit: integer; 
       b1, b2: boolean;
begin  
  readln(n); 
  setlength(a, n); 
  for i := 0 to n - 1 do readln(a[i]); 
  b1 := true; 
  x := 1; 
  digit := x; 
  while b1 do   begin   
    if b2 then digit := x;   
    inc(x);   
    b2 := true;   
    for i := 0 to n - 1 do begin     
      if (abs(a[i]) < x) and (a[i] <> 0) then begin b1 := false;break; end     
      else if a[i] mod x <> 0 then begin b2 := false;break; end   
    end; 
  end; 
  write(digit);
end.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  n,k,d:integer;
begin
  k:=0;
  repeat
    Write('Введите натуральное число, 0- завершить: ');
    Read(n);
    if n>0 then begin
      d:=(n mod 100) div 10;
      if (d=4) or (d=6) then Inc(k)
      end
  until n=0;
  Writeln('Искомых чисел - ',k)
end.

Тестовое решение:
Введите натуральное число, 0- завершить: 345
Введите натуральное число, 0- завершить: 6285
Введите натуральное число, 0- завершить: 7854
Введите натуральное число, 0- завершить: 1324
Введите натуральное число, 0- завершить: 653
Введите натуральное число, 0- завершить: 66666
Введите натуральное число, 0- завершить: 0
Искомых чисел - 2