Составьте программу которая из слова ТЕСТИРОВАНИЕ преобразует слово РИСОВАНИЕ

Question

Составьте программу которая из слова ТЕСТИРОВАНИЕ преобразует слово РИСОВАНИЕ

Answer 1

Var
    s: string;

begin
    s:='ТЕСТИРОВАНИЕ';
    writeln(s[6]+s[5]+s[3]+s[7]+s[8]+s[9]+s[10]+s[11]+s[12]);
end.