var s:string;
i:byte;
begin
writeln('Введите слово:');
readln(s);
writeln;
writeln('Их номера в алфавите:');
for i:=1 to length(s) do
case s[i] of
'А'..'Я' : write(ord(s[i])-1038+' ');
'а'..'я': write(ord(s[i])-1070+' ');
end;
readln
end.
Var
s:string;
begin
readln(s);
writeln(s[3]);
<span>end.</span>
Тут не возможно ничего розшифровать потому что тут ничего не правильно