String s;
intx= a % 100;
if (x > 9 && x < 21) s = "th";
else s = switch (a % 10) {
case1 -> "st";
case2 -> "nd";
case3 -> "rd";
default -> "th";
};
s = a + s;
if ((a mod 100) in [10..20]) then
s := 'th'
else
case (a mod 10) of
1: s := 'st';
2: s := 'nd';
3: s := 'rd';
otherwise
s := 'th';
end;
s := a.ToString + s;
otherwise is supported by fpc (FreePascal), not by Delphi (you should use else there instead)
if9 < (a % 100) < 21: s = 'th'else:
match a % 10:
case1: s = 'st'case2: s = 'nd'case3: s = 'rd'case _: s = 'th'
s = str(a) + s
String s;
int x = a % 100;
if (x > 9 && x < 21) s = "th";
else s = switch (a % 10) {
case 1 -> "st";
case 2 -> "nd";
case 3 -> "rd";
default -> "th";
};
s = a + s;
if ((a mod 100) in [10..20]) then
s := 'th'
else
case (a mod 10) of
1: s := 'st';
2: s := 'nd';
3: s := 'rd';
otherwise
s := 'th';
end;
s := a.ToString + s;