Відомо прибуток взуттевого магазину за pік помісячно. розбудуйте блок-схему алгоритму, яка буде дозволяти визначити: - для кожного місяцю, який процент складає місячний прибуток від загального за рік; -- розмір прибутку поквартально%;

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

Пусть 
Д – драмкружок, 
Х – хор, 
С – спорт.Тогда 
в круге Д – 27 ребят, 
в круге Х – 32 человека, 
в круге С – 22 ученика.Те 10 ребят из драмкружка, которые поют в хоре, окажутся в общей части кругов Д и X. Трое из них ещё и спортсмены, они окажутся в общей части всех трёх кругов. Остальные семеро спортом не увлекаются. Аналогично, 8 – 3 = 5  спортсменов, не поющих в хоре и  6 – 3 = 3, не посещающих драмкружок.Легко видеть, что 5 + 3 + 3 = 11 спортсменов посещают хор или драмкружок,22 – (5 + 3 + 3) = 11 занимаются только спортом; 70 – (11 + 12 + 19 + 7 + 3 + 3 + 5) = 10 – не поют в хоре, не занимаются в драмкружке, не увлекаются спортом.ответ: 10 человек и 11 человек.