С Красные плюхри тоже делятся. Но для этого их нужно намазать горчицей.
Если намазать жёлтого плюхря горчицей, то утром следующего дня он разделится на два. Утром третьего
дня те два жёлтых плюхря тоже разделятся на два. Это будет продолжаться целую неделю.
Если намазать синего плюхря горчицей, то утром третьего дня их станет два. Утром пятого и седьмого дня те
плюхри, которые получились из намазанного горчицей синего плюхря, тоже разделятся на два.
Если красного плюхря намазать горчицей, то делиться он будет как синий, только каждый раз не на двух, а
на трёх отдельных плюхрей.
Сколько у нас будет плюхрей в середине 7-го дня, если мы намажем горчицей двух жёлтых, одного синего и
трёх красных плюхрей?
Как вы наверняка заметили, при делении плюхри не меняют цвет.
В середине 7-го дня у нас будет
плюхрей.

Алгоритм оказания первой что при оказании первой вам ничего не угрожает и вы не подвергаете себя опасности.Обеспечить безопасность пострадавшему и окружающим (например, извлечь пострадавшего из горящего автомобиля).Проверить наличие у пострадавшего признаков жизни (пульс, дыхание, реакция зрачков на свет) и сознания. Для проверки дыхания необходимо запрокинуть голову пострадавшего, наклониться к его рту и носу и попытаться услышать или почувствовать дыхание. Для обнаружения пульса необходимо приложить подушечки пальцев к сонной артерии пострадавшего. Для оценки сознания необходимо (по возможности) взять пострадавшего за плечи, аккуратно встряхнуть и задать какой-либо вопрос.

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
  if n<4 then Result:=True
  else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
  Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
  if n<4 then res:=True
  else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
  var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
  var k:=0;
  var prime:boolean;
  foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
  Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4