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