Вводится текст ( строка, длина которой не менее 10 символов). требуется: 1. вывести на экран фрагмент данного текста с 5 по 8 символ. 2. удалить из данной строки три последних символа. 3. вывести символы, находящиеся на нечётных позициях (1-й,3-й, 5-й и т. 4. подсчитать и вывести количество цифр в данной строке.

//я так понимаю, всё это должно быть в одном коде
var s,DEC:string;
i,k,j:integer;
begin;
DEC:='0123456789';
readln(s);
if length(s)<10 then exit;

for i:=5 to 8 do
writeln(s[i]);
for i:=1 to 3 do
delete(s,length(s),1);

writeln('3)');
for i:=1 to length(s) do
if i mod 2<>0 then writeln(s[i]);

for i:=1 to length(s) do
for j:=1 to length(DEC) do
if s[i]=DEC[j] then inc(k);
writeln('Result:',k);
end.