Во немного не по теме... но
Как в zoom выходить на главный экран и чтобы у других участников не появлялась демонстрация экрана от меня?

F11?

Объяснение нажимаете F11?

(я не уверена)

чередование четных не чётных

чесно говоря без них куда легче

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

с ними только больше кода

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.