ИнформатикБУ

Verified answer

Var
s: string;
k, k1, k2: integer;
begin
readln(s);
readln(k, k1, k2);
writeln(s[k]);
writeln(copy(s, k1, k2-k1+1));
end.