takin

2026-05-28 13:40:53 -03:00
parent 4c4471ca1a
commit 718b717222
4 changed files with 95 additions and 8 deletions
@@ -0,0 +1,15 @@
+program tkn;
+uses SysUtils;
+
+
+var
+    cpf: string;
+    last: integer;
+
+begin
+    cpf := '12345678912';
+
+    last := (Ord(cpf[10])-Ord('0'))*10+(Ord(cpf[11])-Ord('0'));
+
+    writeln(last);
+end.