begin
var str := ReadString().ToWords;
try
write(str[1].ToInteger * 2);
except
write('Ошибка при вводе.');
end;
end.
begin
var str := ReadString().ToWords;
try
write(str[1].ToInteger * 2);
except
write('Ошибка при вводе.');
end;
end.