var
s:string;
begin
s:='stroka';
writeln('исходная строка: ',s);
delete(s,1,1);
delete(s,3,1);
writeln('результат: ',s);
end.
var
s:string;
begin
s:='stroka';
writeln('исходная строка: ',s);
delete(s,1,1);
delete(s,3,1);
writeln('результат: ',s);
end.