1) Пример программы на Pascal для вывода каждого второго символа текста:

program EverySecondCharacter;
var
text: string;
i: integer;
begin
writeln('Введите текст:');
readln(text);
writeln('Каждый второй символ:');
for i := 1 to length(text) do
begin
if (i mod 2 = 0) then
write(text[i]);
end;
end.

2) Пример программы на Pascal для определения количества букв "а" в тексте:

program CountLetterA;
var
text: string;
countA: integer;
i: integer;
begin
writeln('Введите текст:');
readln(text);
countA := 0;
for i := 1 to length(text) do
begin
if (text[i] = 'а') or (text[i] = 'А') then
countA := countA + 1;
end;
writeln('Количество букв "а" в тексте: ', countA);
end.