(Паскаль) Последовательность. Чтобы узнать ответ на интересующий ее вопрос, имеющий 10 вариантов ответа,

program q171821795;
const
InputFile = 'C:\input.txt';
OutputFile = 'C:\output.txt';

function StrToInt(s: string): integer;
var
x: integer;
begin
Val(s, Result, x);
if x > 0 then
Result := 0;
end;

function IntToStr(i: integer): string;
begin
Result := '0';
Str(i, Result);
end;

function ReadN(FileName: string): integer;
var
f: TextFile;
s: string;
begin
Assign(f, FileName);
Reset(f);
s := '0';
while (not(Eof(f))) do
Readln(f, s);
Close(f);
Result := StrToInt(s);
end;

procedure WriteN(FileName: string; n: integer);
var
f: TextFile;
begin
Assign(f, FileName);
Rewrite(f);
WriteLn(f, IntToStr(n));
Close(f);
end;

function GetN(n: integer): integer;
var
i, j, x: integer;
s: string;
begin
s := '1';
i := 1;
if (n = 1) then
begin
while i < n do
begin
x := 0;
for j := 1 to Length(s) do
x := StrToInt(s[j]) + x;
s := s + IntToStr(x);
i := Length(s);
end;
Result := StrToInt(s[n]);
end else
Result := -1;
end;

begin
WriteN(OutputFile, GetN(ReadN(InputFile)));
ReadLn;
end.