2)

var s1, s2:string;

i: integer;

begin

   s1:='symbols';

   s2:='';

   i:=2;

   while i <= length(s1) do

   begin

       s2 += s1[i];

       i += 2;

   end;

   writeln(s2);

end.

4)

var sWord: string;

i, j: integer;

begin

   sWord:='moloko';

   for i:=1 to length(sWord) do

       for j:=length(sWord) downto i+1 do

           if sWord[j] = sWord[i] then

               delete(sWord, j, 1);

   write(sWord);

end.

5)

var text: string;

begin

   text:='Напечатает только это, а это не напечатает';

   writeln(LeftStr(text, pos(',', text) - 1));

end.