Необходимо определить, является ли число n простым. Требуется написать программу на языке программирования Pascal

Определение:
Простые числа - это натуральные числа, которые имеют ровно два делителя: единицу и само число. Другими словами, число n считается простым, если оно не делится ни на одно натуральное число, кроме единицы и самого себя.

Пояснения:
Для определения, является ли число n простым, можно использовать метод перебора делителей. Мы можем проверить, делится ли n на все числа от 2 до sqrt(n). Если мы найдем хотя бы один делитель, то n не является простым числом. Однако, если ни одно из чисел не делит n, то число n будет простым.

Пошаговое решение:
1. Инициализируйте переменную "count" со значением 0. Она будет использоваться для подсчета количества букв "а".
2. Если заданный текст пустой, верните 0, так как нет ни одной буквы "а".
3. Пройдите по каждой букве в заданном тексте.
4. Если текущая буква является буквой "а", увеличьте значение переменной "count" на 1.
5. Верните значение переменной "count".

Доп. материал:

pascal

function CountLetterA(text: string): integer;

var

  count: integer;

  i: integer;

begin

  count := 0;

  if text = "" then

  begin

    Result := 0;

    exit;

  end;

  

  for i := 1 to length(text) do

  begin

    if text[i] = "a" then

      count := count + 1;

  end;

  

  Result := count;

end;

Советы:
- Внимательно следите за регистром букв в заданном тексте. Если требуется учитывать как заглавные, так и строчные "а", добавьте условие для проверки обеих вариантов.
- Перед использованием кода, убедитесь, что вы правильно передаете аргументы функции и правильно обрабатываете возвращаемое значение.

Ещё задача:
Напишите программу на языке Pascal, которая будет принимать текст от пользователя и выводить количество букв "а" в этом тексте.