Программирование Pascal ABC

Question

Oleg Logachev Знаток (288), открыт 2 недели назад

Подскажите пожалуйста в чем ошибка.
Первая задача не получается верно.

Answer 1

может так:

 var  
  s: string; 
  val1: byte; 
  val2: byte; 
begin 
  s:='tttsttttsttt'; 
  delete(s, 4, 1); 
  delete(s, length(s)-3, 1); 
  writeln(s); 
end.