BÀI 4 ( 6,0 ĐIỂM). KHỞI ĐỘNG CHƯƠNG TRÌNH PASCAL, VIẾT CHƯƠNG TRÌNH NH...

1,5 Kt:=true; for i:=2 to round(sqrt(n)) do if n mod i=0 then Kt:=false; NT:=Kt; end;Begin Write('Hay nhap vao so phan tu cua mang:'); Readln(n); For i:= 1 to n do 0,5 Begin Write('Nhap a[',i,']= '); Readln(a[i]); End; For i:= 1 to n-1 do For j:= i to n do If a[i]>a[j] then