Составьте программу, которая позволяет получить из слова "программирование" слово...

Question

Составьте программу, которая позволяет получить из слова "программирование" слово "программа" и "мир" путем удаления символов

Answer 1

Var
  s, p, w : string;
begin
  s := 'программирование';
  p := copy (s, 1,8) + s[13];
  w := copy (s, 8, 3);
  write (p, ' ', w);
end.