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

Предыдущий
вопрос Следующий
вопрос

program LeastMultipleOfThree;

var
i, number, minMultiple: integer;

begin
// Ввод количества чисел
writeln('Введите количество чисел:');
readln(number);

// Ввод первого числа
writeln('Введите число 1:');
readln(minMultiple);

// Находим наименьшее число кратное 3
for i := 2 to number do
begin
writeln('Введите число ', i, ':');
readln(minMultiple);

end;

// Выводим результат
writeln('Наименьшее число кратное 3: ', minMultiple);

end.