Var i, n, a, min: integer;beginmin:=30000;readln (n);for i:=1 to n dobeginreadln (a);if (a mod 13=0) and (a<min) thenmin:=a;end;writeln (min);end.
65 58 23 98 115 13 452 8 554
0
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!