Viết chương trình pascal tìm các số Armstrong từ 1 đến 999 `->` Số Armstrong là số có dạng `100a + 10b + c = a^3 + b^3 + c^3`

uses crt;
var
    a,b,c : int64;
begin
clrscr;
    for a := 0 to 9 do
        for b := 0 to 9 do
            for c := 0 to 9 do
                begin
                if 100*a + 10*b + c = a*a*a + b*b*b + c*c*c then
                writeln('So armstrong : ',a,b,c);
                end;
end.