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

program pr1; uses crt; var stroka: string; beginstroka: ='программирование'; writeln(stroka); delete(stroka,9,4); delete(stroka,10,length(stroka)-9); writeln(stroka); stroka: ='программирование'; delete(stroka,1,7); delete(stroka,4,length(stroka)-3); writeln(stroka); end.

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

друг сказал) если не правильно извини, но он вродь хорош в информе