Написать программы которые: 1. Вводит с клавиатуры строку символов, выводит на экран символы стоящие на позициях кратной 3.

2. Вводит с клавиатуры строку символов, выводит на экран сначала символы стоящие на четных позициях, затем с новой строки символы стоящие на нечетных позициях.

3. Вводит с клавиатуры строку символов, выводит на экран число (количество разных символов которые использовались в введенной строке).

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.