Program Bla_bla; uses crt;

var st:string;
    i:integer;

Begin clrscr;
Write('Введите кодированный текст: '); Readln(St);

for i:=1 to Length(St) do if (St[i] = #65) then St[i]:=#82
                                           else if (St[i] = #66) then St[i]:=#80
                                                                 else if (St[i] = #67) then St[i]:=#77
                                                                                       else if (St[i] = #68) then St[i]:=#84;
Writeln('Декодированный текст: ',St);
Readln;
end.