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

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.