Giúp em 3 bài về Pascal gấp ^^

[Yinny]

Bài 1: Các số Pitago bậc 3:
Bộ 4 số nguyên dương (x, y, z, t) gọi là các số Pitago bậc 3
nếu x3 + y3 + z3 = t3 và x ≤ y ≤ z.
Nhập vào từ bàn phím các số nguyên dương t bất kỳ, 1 ≤ t ≤ 102
Xuất ra màn hình tất cả các số nguyên dương x, y, z sao cho (x, y, z, t) là các số Pitago bậc 3. (Nếu không tìm ra được thì in ra số 0).
Ví dụ:
INPUT t = 6
OUTPUT 3 4 5


Bài 2: Tính tổng
Cho tổng gồm N số hạng S(N) = 1 – 3 + 5 – 7 + … + (-1)N-1(2*N – 1)
Nhập vào từ bàn phím số nguyên dương N, 1 ≤ t ≤ 109
Xuất ra màn hình số S(N), số lớn nhất và số nhỏ nhất trong các số từ S(1) đến S(N)
Ví dụ:
INPUT N = 7
OUTPUT 7 7 -6

Bài 3: Số hoàn thiện
Số nguyên dương X gọi là số hoàn thiện nếu X bằng nửa tổng các ước nguyên dương của nó.
Nhập vào từ bàn phím số nguyên dương X, 1 ≤ X ≤ 106
Xuất ra màn hình thông báo YES nếu X là số hoàn thiện hoặc NO nếu ngược lại
Ví dụ:
INPUT X = 6 X=12
OUTPUT YES NO

[chuinhacau]

bài 1 chạy 3 vòng for vét cạn :))
kt:=false;
for x:=1 to t do
for y :=1 to t do
for z:=1 to t do
if x*x*x+ y*y*y + z*z*z = t*t*t then
begin
kt:=true;
writeln(x,y,z);
end
if kt=false then write('0');
xong

[=========> Bổ sung bài viết <=========]

bài 2 thì khỏi nói tính cái đó xét chẵn lẻ rồi tính thôi
bài 3
s:=0;
for i:=1 to round(x mod 2) do
if x mod i= 0 then
s:=s+i;
if s=x then write(yes)
else write(no);