program c;var a:array [1..10] of integer; i,k,n:integer;begin k:=-1; n:=-10001; for i:=1 to 10 do  begin   readln(a[i]);    if(a[i] mod 5 = 0) and (a[i] > n) then     n:= a[i];   end;   if n = -10001 then    writeln(k)    else     writeln(n);end.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqInteger(10).Where(t->(t mod 5=0)).ToArray;
  if a.Count=0 then Writeln(-1) else Writeln(a.Max)
end.