===== PascalABC.NET =====
begin
var s := ReadString;
var i := s.LastIndexOf('т');
if i < 0 then
Print('Буквы "т" нет в данном слове')
else
Delete(s, i + 1, 1);
Print(s)
end
end.
===== PascalABC.NET =====
begin
var s := ReadString;
var i := s.LastIndexOf('т');
if i < 0 then
Print('Буквы "т" нет в данном слове')
else
begin
Delete(s, i + 1, 1);
Print(s)
end
end.