Параметры для составления программ

Function IsPrime(n: integer): boolean;
  // Проверка, является ли число простым
var
  p: integer;
  found: boolean;
begin
  found := (n mod 2 = 0);
  p := 3;
  while (not found) and (sqr(p) <= n) do
  begin
    found := (n mod p = 0);
    p := p + 2
  end;
  IsPrime := (not found) or (p = 2)
end;

const
  n = 20;

var
  i, k: integer;
  a: array[1..n] of integer;

begin
  Write('Введите 20 целых чисел через пробел: ');
  for i := 1 to n do
  begin
    Read(a[i]);
  end;
  k := 0;
  for i := 1 to n do
    if IsPrime(a[i]) then k := k + 1;
  Writeln('Количество простых чисел- ', k)
end.

Тестовое решение:

Введите 20 целых чисел через пробел: 5 36 83 1673 339 73 34 14623 7 173 62 45 3463 326 28 934 345 24 4526 1143
Количество простых чисел- 6

1. Текстовый процессор входит в состав прикладного программного обеспечения.
2. Клавиатор является разновидностью клавиатурного тренажёра.
3. Редактирование предшествует форматированию.
4.  Растровой графический редактор является элементом множества графический редактор.
5. Paint является разновидностью растрового графического редактора
6. Windows XP является разновидностью операционной системы
7.  Материнская плата входит в состав системного блока
8. Струйный принтер является элементом множества принтер