Используя операции и функции для строковых типов данных,написать программу,где из слова РАДОСТЬ получиться слово ССОРА.

program prg;const    data = 'РАДОСТЬ';var    str: string;begin    str := data[5]+data[5]+data[4]+copy(data,1,2);    writeln(str);end.

uses crt;vara,b:string; i:integer;beginclrscr;a:='РАДОСТЬ';for i:=1 to length(a) dob:=a[5]+a[5]+a[4]+a[1]+a[2];writeln(a);write(b);end.