Pandigital prime: Difference between revisions

Content added Content deleted

Inline

@@ Line 180: / Line 180: @@
 =={{header|Delphi|Delphi}}==
-<lang csharp>
+<lang pascal>
 uses System.SysUtils, System.Classes, System.Math;
 label nxt;
@@ Line 187: / Line 187: @@
   begin
     var s := x.ToString;
-    for var ch := sp to '7' do if s.IndexOf(ch) < 0 then goto nxt;
+    for var ch := sp to '7' do if not s.Contains(ch) then goto nxt;
     if x mod 3 = 0 then goto nxt;
     var i := 1;
@@ Line 196: / Line 196: @@
     Writeln(Format('%s..7: %d', [sp, x])); Break; nxt:;
   end;
-  readln;
 end.
 </lang>