как её решить?

Любой вариант, где вам легко.

Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.

Только сейчас Вы можете пройти дистанционное обучение прямо на сайте "Инфоурок" со скидкой 40% по курсу повышения квалификации "Организация работы с обучающимися с ограниченными возможностями здоровья (ОВЗ) в соответствии с ФГОС" (72 часа). По окончании курса Вы получите печатное удостоверение о повышении квалификации установленного образца (доставка удостоверения бесплатна).

var

 s:string;

 i,count:integer;

 a: set of char;

begin

 i:=3;

 readln(s);

 writeln('1)');

 if length(s)>=3 then

   repeat

     write(s[i]);

     i:=i+3;

   until i>length(s)

     else

       writeln('error');

 writeln;

 writeln('2)');

 i:=2;

 repeat

   write(s[i]);

   i:=i+2;

 until i>length(s);

 writeln;

   i:=1;

 repeat

   write(s[i]);

   i:=i+2;

 until i>length(s);

 writeln;

 writeln('3)');

 a:=[];

 count:=0;

 for i := 1 to length(s) do

   if s[i] in a then

     else

       begin

         a:=a+[s[i]];

         inc(count);

       end;

 writeln(count);

end.