Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử.Sắp xếp các số nguyên tố theo thứ tự tăng dần,các số còn lại vẫn giữ nguyên vị trí pascal

var a : array[1..100] of longint ;
    i, j, n : longint ;
  function prime(n:longint):boolean ;
     var i : longint ;  
         begin
        if n < 2 then exit(false);
        for i := 2 to trunc(sqrt(n)) do 
            if n mod i = 0 then exit(false);
        exit(true);
         end ;
begin
    readln(n);
    for i:=1 to n do read(a[i]);
    for i := 1 to n do 
        for j := i + 1 to n - 1 do 
            if ((prime(a[i]))and((prime(a[j])))and(a[i]>a[j])) then 
                 begin
                a[i] := a[i] + a[j] ;
                a[j] := a[i] - a[j] ;
                a[i] := a[i] - a[j] ;
                 end ;
    for j := 1 to n do write(a[j],' ');
end .

- - - - - - - - - - - - - - - 

#include <bits/stdc++.h>
#define ll long long
using namespace std;
bool prime(ll n){
    if (n<2) return false;
    for (ll i=2;i*i<=n;i++) if (n%i==0) return false ;
    return true ;
}
int main(){
    ll n ; cin >> n ;
    vector <ll> a(n);
    for (ll&i:a) cin >> i ;
    for (ll i=0;i<n;i++)
        for (ll j=i+1;j<n-1;j++)
            if (prime(a[i])&&prime(a[j])&&a[i]>a[j]) swap(a[i],a[j]);
    for (ll&i:a) cout << i << " ";
}