Помогите решить задучу пожалуйста в программе Pascal ABC. Заранее Спасибо!
var s:string;
begin
read(s);
delete(s,2,1);
writeln(s);
write('s[2]=',s[2])
end.
