Дано слово "форматирование".

Используя все возможные сначала функции, а потом процедуры получить как можно больше новых слов.

Слова составляются на паскале с помощью функций 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.