uses crt;var s: string;beginwriteln('Напишите слово');readln(s);writeln('ма',s);writeln(s[1],s[2],s[3],s[4]);end.