прогу надо?
давай
лайкни)
Program prim; uses crt; var result,s1,s2,s3,s4,s5:string; begin clrscr; textbackground(41); s1:='Putevoditelb'; s2:=s1[1]+s1[2]+s1[3]+s1[12];s3:=s1[5]+s1[6]+s1[7]+s1[8]+s1[9]+s1[10]+s1[11]+s1[12];s4:=s1[1]+s1[4]+s1[11]+s1[6]; s5:=s1[1]+s1[2]+s1[7]+s1[4]+s1[11]+s1[12]; writeln(s2); writeln(s3); writeln(s4);writeln(s5); readln; end.
а дальше можешь сама)
result:=s1[1]+s1[4]+s1[8]+s1[7]; дети вроди<= writeln(result)