Массив из 15 элементов заполнить случайным образом в диапазоне [0..100].Вывести на экран все элементы массива меньшие 33. (Pascal)

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

program ArrayLessThan33;

var
arr: array[1..15] of Integer;
i: Integer;

begin
Randomize;

// заполнение массива случайными элементами
for i := 1 to 15 do
begin
arr[i] := Random(101); // случайное число от 0 до 100
end;

// вывод элементов массива меньше 33
writeln('Elements less than 33:');
for i := 1 to 15 do
begin
if arr[i] < 33 then
writeln(arr[i]);
end;

end.