В массиве Cоlоrѕ хранятся следующие значения: "Red", "Yellow", "Blue", "Purple". а) Выполните сортировку методом пузырька. Покажите результат на каждом этапе, где порядок элементов изменяется. Не
обязательно использовать все строки ( ).
Red
Yellow
Blue
Purple
б) Напишите алгоритм сортировки методом пузырька, используя программный код ( ).

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.

за тридевять земель или к чёрту на кулички