program RandomPositiveArray;

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

begin
Randomize;

// Заполнение массива рандомными числами от 0 до 30
for i := 1 to 15 do
begin
arr[i] := Random(31); // Random(31) генерирует числа от 0 до 30
end;

// Вывод положительных значений массива
writeln('Положительные значения массива:');
for i := 1 to 15 do
begin
if arr[i] >= 0 then
begin
writeln(arr[i]);
end;
end;
end.