<span>Вчера решал 238 вышло, могу ошибаться..
</span>
Я так полагаю вы про оптимизацию.
чтобы вычислить любое слова в юникоде, надо лишь знать, что 1 символ = 2 байта
Var a:string;
i:Integer;
begin
read(a);
for i:=Length(a) downto 1 do
write(a[i]);
end.
полегче надо