Special divisors: Difference between revisions

Content added Content deleted

Inline

@@ Line 103: / Line 103: @@
 {{libheader| System.StrUtils}}
 {{Trans|Ring}}
-<lang Delphi>
+<lang Delphi>program Special_Divisors;
+{$IFDEF FPC}
-program Special_Divisors;
+  {$MODE DELPHI}
+ uses
-{$APPTYPE CONSOLE}
+    SysUtils,
+    StrUtils;
-uses
+{$ELSE}
-  System.SysUtils,
+  {$APPTYPE CONSOLE}
-  System.StrUtils;
+ uses
+    System.SysUtils,
+    System.StrUtils;
+{$ENDIF}
 const
@@ Line 120: / Line 124: @@
 procedure Main();
+var
+  n,m: NativeUint;
 begin
   writeln('Working...'#10);
@@ Line 125: / Line 131: @@
   num := 0;
-  for var n := 1 to limit1 do
+  for n := 1 to limit1 do
   begin
     flag := True;
     revNum := reversestring(n.ToString).ToInteger;
-    for var m := 1 to n div 2 do
+    for m := 1 to n div 2 do
     begin
       revDiv := reversestring(m.ToString).ToInteger;