Ввести с клавиатуры одномерный массив, состоящий из 10 элементов и записать сначала все элементы кратные 5, а затем все оставшиеся. На экран вывести исходный и новый массивы в две строки. Отсортировать новый массив методом «пузырька». Вывести отсортированный массив на экран.

Varbeginj:=0;for i:=1 to 10 do read(a[I]);for i:=1 to 10 doif a[i] mod 5=0 then beginj:=j+1;b[j]:=a[i];end;for i:=1 to 10 doif a[i] mod 50 then beginj:=j+1;b[j]:=a[i];end;For i:=1 to j do write(a[i],` `);Writeln();For i:=1 to j-1 doFor c:=j-1 downto i doIf b[c]>b[c+1] do begink:=b[c];B[c]:=b[c+1];B[c+1]:=k;end;For i:=1 to j do write(b[i],` `);End.