вводится текст ( строка, длина которой не менее 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 dowriteln(s[i]);for i:=1 to 3 dodelete(s,length(s),1);writeln('3)');for i:=1 to length(s) doif i mod 2<>0 then writeln(s[i]);for i:=1 to length(s) dofor j:=1 to length(DEC) doif s[i]=DEC[j] then inc(k);writeln('Result:',k);end.