uses crt;
var n,i: integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
write('cac so chan:');
for i:=1 to n do
 if a[i] mod 2 =0 then write(a[i]:3);
writeln;
write('cac so nguyen le:');
for i:=1 to n do
 if a[i] mod 2<>0 then write(a[i]:3);
readln;
end.

(Mong 5* + hay nhất)

Thuật toán trong bài toán sắp xếp trong Pascal:

B­ước `1`. Nhập số `n`, các số nguyên `a1, a2,…, a(n);`

B­ước `2`. `Q := n;`

B­ước `3`. Nếu `Q < 2` thì đưa ra dãy `A` đã được sắp xếp rồi kết thúc.

B­ước `4`. `Q := Q – 1, i := 0;`

B­ước `5`. `i := i + 1;`

B­ước `6`. Nếu `i > Q` thì quay lại bước `3`;

B­ước `7`. Nếu `a[i] > a[i]+1` thì đổi `a[i]` thành `a[i]+1 ;`

B­ước `8`. Quay lại bước `5`.

Bước `9`. Kết thúc chương trình.