Выполнение практических заданий с использованием строковых переменных

Повторяем процедуры и функции обработки строковых переменных:

Дано слово «криминалистика»  получить из него слова «мина» и «листик».

Var s, s1, s2: string;                                           радиовещание

  Begin                                                                  роща

s:=’криминалистика’;                                      вещи
s1:=copy(s,4,4);

writeln (s1);

s2:=copy(s,8,6);

 writeln(s2);

End.