uses crt;

var A:array[1..100] of integer;

n,i,j,t:integer;

function nt(var n:integer):boolean;

var i:integer;

ok:boolean;

begin ok:=true; for i:=2 to n-1 do

if n mod i=0 then ok:=ok and false;

if n<2 then nt:=false else nt:=ok;

end;

begin

clrscr;

readln(n);

write('Nhap mang: ');

for i:=1 to n do read(A[i]);

write('Mang vua nhap la: ');

for i:=1 to n do write(A[i],' ');

for i:=1 to n-1 do for j:=i+1 to n do

if A[i]>A[j] then

begin

t:=A[i];

A[i]:=A[j];

A[j]:=t;

end;

writeln;

write('Mang sap xep tang: ');

for i:=1 to n do write(A[i],' ');

writeln;

write('Mang vua sap xep co so nguyen to la: ');

for i:=1 to n do if nt(A[i]) then write(A[i],' ');

writeln; write('Tai cac vi tri: ');

for i:=1 to n do if nt(A[i]) then write(i,' ');

readln

end. 

uses crt;

var a:array[1..100] of integer;

n,i,j,t:integer;

function kt(n:integer):boolean;

var i,s:integer;

begin

for i:=1 to n do

if n mod i=0 then s:=s+1;

if s<>2 then kt:=false else kt:=true;

end;

begin

clrscr;

write('nhap so ptu:');readln(n);

for i:=1 to n do

begin

 write('A[',i,']=');

 readln(a[i]);

end;

write('Mang vua nhap la: ');

for i:=1 to n do write(a[i],' ');

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln;

write('Mang sau khi sap xep la: ');

for i:=1 to n do write(a[i],' ');

writeln;

write('Mang vua sap xep co so nguyen to la: ');

for i:=1 to n do if kt(a[i]) then write(a[i],' ');

writeln;

write('Tai cac vi tri: ');

for i:=1 to n do if kt(a[i]) then write(i,' ');

readln;

end.