Câu 2 :
Trong trường hợp tìm các số từ 0 đến 999 (tức là chấp nhận cả các số có 1 hoặc 2 chữ số): 
 có thể viết 3 vòng for lồng nhau để duyệt tất cả các giá trị của a, b và c (từ 0 đến 9) 
Trong mỗi lần lặp thì kiểm tra điều kiện abc = a^3 + b^3 + c^3 bằng câu lệnh tương đương trong pascal: 
a*100 + b*10 + c = a*a*a + b*b*b + c*c*c 
thỏa mãn thì in ra màn hình. 
var 
a, b, c: integer; 
begin 
writeln('Cac so tu 0 den 999 co tong lap phuong cac chu so bang chinh no'); 
for a:=0 to 9 do 
for b:=0 to 9 do 
for c:=0 to 9 do 
if (a*100 + b*10 + c = a*a*a + b*b*b + c*c*c) then 
writeln(a*100 + b*10 + c); 
readln; 
end.