Помогите написать программу на паскаль

Question

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, кратное 5

Вряд-Ли Это-Я · Accepted Answer

ReadLn(N); Find := False; 
for i := 1 to N do 
 begin 
 ReadLn(Num); 
 if Num mod 5 = 0 then 
 if Find and (Num > MaxNum) then MaxNum := Num 
 else begin MaxNum := Num; Find := true; end; 
 end; 
WriteLn(MaxNum);