В массиве, состоящем из 10 целых чисел, найти наибольший элемент оканчивающийся на 5 БУДУ СЕДЕЧНО БЛАГОДАРНА!

const   n = 5;type    mas = array[1..n] of integervar    max : integer;begin    max := 0;   for i:=1 to n do       if (max < mas[i]) and (mas[i] mod 5 = 0) then max := mas[i];   writeln(max);end.