Помогите с паскалем)Дано слово: 'формирование' Получить слова:' форма',' мир',' ров','...

Question

Помогите с паскалем)
Дано слово: 'формирование'
Получить слова:' форма',' мир',' ров',' ванная'.

Answer 1

Var st1,st2,st3,st4,st5,st6:string;
Begin
st1:='формирование';
st2:=copy(st1,1,4)+copy(st1,9,1);
st3:=copy(st1,4,3);
st4:=copy(st1,6,3);
st5:=copy(st1,8,3)+copy(st1,10,1)+copy(st1,9,1);
st6:='я';
      writeln(st2,' ',st3,' ', st4,' ',st5,st6);

End.