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

Задачка содержит условие на количество проверяемых чисел. А конкретно: их обязано быть не меньше 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] gt; max)
max := mas[i];
end;