Program Solusi Bilangan Bulat

Program Solusi_Bilangan_Bulat;
Uses Wincrt;
Var i,n,x,y,z:integer;
Begin
  Writeln('Program Solusi Bilangan Bulat');
  Writeln('=============================');
  Writeln;  
  for x:= 0 to 25 do
    for y:= 0 to 25 do
      for z:= 0 to 25 do
        if (x+y+z=25) then
           begin
             writeln(x,' ',y,' ',z);
             readln;
           end;   
End.

Outputnya: