iTakinn
15 lines
192 B
ObjectPascal
15 lines
192 B
ObjectPascal
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. |