Algoritma Kombinasi Bilangan Bulat

Tuliskan algoritma untuk menampilkaan semua solusi bilangan bulat tidak negatif dari persamaan berikut:
x+y+z = 25
yang dalam hal ini, x>= 0, y>=0 dan z>=0

jawab:

var
x,y,z: integer;


begin
for x:= 0 to 5 do
    for y:= 0 to 5 do
        for z:= 0 to 5 do
         if x+y+z = 5 then
          writeln (x,' ',y,' ',z);

readln;
end.