---

1 
program CountLetterA;
var
  s: string;
  i, count: integer;
begin
  s := 'Титов'; // Ваша фамилия
  count := 0;
  
  for i := 1 to length(s) do
  begin
    // Проверяем и строчную, и заглавную букву
    if (s[i] = 'а') or (s[i] = 'А') then
      count := count + 1;
  end;
  
  writeln('Строка: ', s);
  writeln('Количество букв "а": ', count);
end.

2
program CheckPalindrome;
var
  s, rev_s: string;
  i: integer;
  is_palindrome: boolean;
begin
  s := 'ПОТОП';
  rev_s := '';
  
  // Формируем перевернутую строку
  for i := length(s) downto 1 do
    rev_s := rev_s + s[i];
    
  // Сравниваем исходную и перевернутую строки
  if s = rev_s then
    writeln('Слово "', s, '" является палиндромом.')
  else
    writeln('Слово "', s, '" НЕ является палиндромом.');
end.

3

program FileNumbers;
var
  f_in, f_out: text;
  num: integer;
begin
  // Связываем файловые переменные с именами файлов
  assign(f_in, 'input.txt');
  assign(f_out, 'output.txt');
  
  // Открываем input.txt для чтения
  {$I-} // Отключаем проверку ошибок ввода-вывода на время открытия
  reset(f_in);
  {$I+}
  
  if IOResult <> 0 then
  begin
    writeln('Ошибка: файл input.txt не найден!');
    halt; // Завершаем программу
  end;
  
  // Открываем output.txt для записи (создается заново или перезаписывается)
  rewrite(f_out);
  
  // Читаем числа из файла до конца
  while not EOF(f_in) do
  begin
    read(f_in, num);      // Читаем число
    writeln(f_out, num);  // Записываем в новый файл с переходом на новую строку (в столбик)
  end;
  
  // Закрываем файлы
  close(f_in);
  close(f_out);
  
  writeln('Данные успешно обработаны и записаны в output.txt');
end.