1. Средства функционального программирования// PascalABC.NET 3.1, сборка 1239 от 08.05.2016// Также проверено в WDE: http://pascalabc.net/WDEbegin var s:=ReadlnString('>'); s.Batch(s.Length div 5).Skip(2).Take(1).Aggregate((c1,c2)->c1+c2).Println('')end.
Тестовое решение> retmutsikeut
2. Еще один вариант (на слайсах)// PascalABC.NET 3.1, сборка 1239 от 08.05.2016// Также проверено в WDE: http://pascalabc.net/WDEbegin var s:=ReadlnString('>'); var m:=s.Length div 5; s[2*m+1:3*m+1].Println('')end.
3. Стандартные средства Паскаляvar s:string; m:integer;begin Write('>'); Readln(s); m:=s.Length div 5; Writeln(Copy(s,2*m+1,m))end.