viết chương trình in ra các số từ 100 đến 999

VD:153=1^3+5^3+3^3

mình ko bt đề

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}
`@`$\texttt{Pascal: }$

`@)` Đề bài là tìm số Amstrong.
  - Định nghĩa : là những số có tổng mũ độ dài các chữ số của nó bằng chính nó.

   `*)` Ví dụ : `153=1^3+5^3+3^3`(giả thiết đề bài)

`=>` Ta cần tạo 1 hàm để tính tổng các chữ số

`=>` Dùng vòng lặp while để tính tổng chữ số, đồng thời tính độ dài nó

  - Tuy nhiên, giới hạn đề chỉ có 3 chữ số nên ta có thể dùng div lấy từng chữ số và tính toán không cần dùng while. Dưới đây có cách dùng phép toán (lười dùng xâu) bạn có thể tham khảo :

`@)` Cách dùng phép toán :

  - Gọi `overline(abc)` là số có 3 chữ số n, thuộc số nguyên và theo yêu cầu đề cần tách 3 số ra, ta có

    + Chữ số a : n div 100 : phép toán này loại bỏ đi 2 chữ số b, c và trả về chữ số a

    + Chữ số b : (n div 10) mod 10 : phép toán này đầu tiên chia nguyên cho 10 sẽ trả về 2 chữ số a, b. Sau đó tiếp tục chia lấy dư 10 để lấy chữ số b

    + Chữ số c : n mod 10 : phép toán này lấy đi chữ số c của số nguyên n.

(*Hoặc ta có thể hiểu là dùng để chặt chữ số*)

(*Lưu ý : là chỉ giải thích dễ hiểu, còn giải thích đúng chuyên môn thì bạn có thể cmt mình sẽ giải đáp*)

*Code: 

 var i : integer;
  function sum(n : integer) : boolean;
        var a, b, c : integer;
     begin
    a := n div 100;
    b := (n div 10) mod 10;
    c := n mod 10;
    exit(n = a * a * a + b * b * b + c * c * c);
     end ;
begin
    
    for i := 100 to 999 do 
        if sum(i) then write(i,' ');
end .