Var i,a,n,min:integer;BeginReadln (n);Min:=30000;For i:=1 to n doBeginReadln(a);If (a < min) and (a mod 13 = 0) thenMin:= a;End;Write(min);End.
3 130 25 169 39 45 82
130
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!