Повторяем процедуры и функции обработки строковых переменных:
End.
Дано
слово «криминалистика» получить из него слова «мина» и «листик».
Var s, s1, s2: string; радиовещание
Begin роща
s:=’криминалистика’; вещи
s1:=copy(s,4,4);
s1:=copy(s,4,4);
writeln (s1);
s2:=copy(s,8,6);
writeln(s2);
