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

program zz1;

var s, s1, s2, s3:string; / / задаем переменные строкового типа

begin

s:='конкурс'; / / присваиваем переменной значение исходного слова

s1:=s; / / получаем первое слово

s2:=s[6] + s[5] + s[3] + s[2]; / / получаем второе слово одним способом

s3:=copy (s, 4, 2) + copy (s, 7, 1) + copy (s, 2, 1) + copy (s, 1, 1); / /получаем третье слово другим способом

writeln (' полученные слова: '); / / выводим ответ

writeln (' первое слово: ', s1);

writeln (' второе слово: ', s2);

writeln (' третье слово: ', s3);

end.