Program Tripel Phytagoras menggunakan Delphi 7

Pseudo Code:


var p,n,k,l,m : integer;
begin
  p:=StrToInt(edit1.text);
  k:=3;
  l:=4;
  m:=5;
  n:=0;

  while n < p do
  begin
    n:=n+1;
    k:=k*n;
    l:=l*n;
    m:=m*n;
    listbox1.items.add(IntToStr(k)+' , '+IntToStr(l)+' , '+IntToStr(m));
  end;
end;

Semoga Bermanfaat :)