Написать программку: В массиве из 10 вводимых с клавиатуры чисел подсчитать

var

   numbers: Array[1..10] of Integer;

   i, first, last, count, num: Integer;

begin

   writeln('Введите 10 чисел');

   for i := 1 to 10 do

       readln(numbers[i]);

   first := numbers[1];

   last := numbers[10];

   for i := 1 to 10 do begin

       num := numbers[i];

       if (num gt;= first) and (num mod first = 0) then

           if (num lt; last) or (num mod last lt;gt; 0) then

               count := count + 1;

   end;

   writeln(count);

end.