Как решить это уравнение в лазарусе? ​

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-1000. за алгоритмом спочатку виведеться вітальне повідомлення, після чого масивом виведуться числа від 1-1000. (написати програму можна в багатьох мовах програмування, наприклад с++)