Составить программу, которая их слова конкурс составит слова конкурс руно кусок

program zz1;
var s, s1, s2, s3:string; // задаем переменные строкового типа
begin
s:=конкурс; // присваиваем переменной значение исходного слова
s1:=s; // получаем 1-ое слово
s2:=s[6] + s[5] + s[3] + s[2]; // получаем 2-ое слово одним способом
s3:=copy(s, 4, 2) + copy(s, 7, 1) + copy(s, 2, 1) + copy(s, 1, 1); //получаем третье слово иным методом
writeln( полученные слова: ); / /выводим ответ
writeln( 1-ое слово: , s1);
writeln( 2-ое слово: , s2);
writeln( третье слово: , s3);
end.