Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5. программа получает на вход количество чисел в последовательности,а затем сами числа

Type arr = array[1..1000];
i = integer;
begin
for i=1 to 1000 do begin arr[i]:=random(30000); arr[random(1000)]:= 5; { :)))} end;
Writeln('5');
Writeln('Xtnj-yfljtkj');
end;

end;
Братик, советую тебе это всё выучить, иначе в старших классах тебе конец))