Дано слово "форматирование". используя все возможные сначала функции, а потом процедуры получить как можно больше новых слов. слова составляются на паскале с функций copy, lenght и pos; и процедур delete, insert, str и val.

Var s,d,f,z:string; i,n:integer;
begin
write('Введите текст');Readln(s);
//s:='форматирование';
n:= length(s);
for i:= 1 to n do begin
if i <6 then begin z:= z + s[i];end;end;
writeln(z);
f:= copy(s,2,4);
writeln('н' +f);
delete(s,1,2);insert('ka',s,1);f:= copy(s,1,5);writeln(f);end.