Составьте программу в паскале, которая находит наименьшее из чисел кратное 3.Количество чисел не меньше 1000.

Задача содержит условие на количество проверяемых чисел. А именно: их должно быть не меньше 1000 штук.
Поэтому мы создадим массив из тысячи элементов, и так как вводить руками эти числа будет неудобно и долго по времени, мы их сгенерируем функцией.
Создаем массив на 1000 элементов:
mas : array [1..1000] of integer;
Заполняем массив случайными целыми:
for i:integer := 1 to 1000 do
begin
mas[i] := random(1000);
Массив заполнен. Теперь проверим, делится ли каждый элемент на три. Будем использовать двойное условие:
if (mas[i] mod 3 = 0) and (mas[i] > max)
max := mas[i];
end;