Berikut ini adalah Program untuk mencetak bilangan-bilangan tripel pitagoras :
Program tripel;
uses wincrt;
var A,B,C : array [ 1..100] of integer;
n: integer;
p,q,r,i : integer;
begin
writeln('mencetak daftar trupel pytagoras ...');
write ('maksimum nilai yang diinginkan, 2<n<182 : ');
readln(n);
i:=1;
for r:=3 to n do
for q:=1 to r-1 do
for p:=1 to q do
if (p<>q) and ( p*p+q*q =r*r) then
begin
A[i]:=p;B[i]:=q;C[i]:=r;
write (A[i]: 5,B[i]:5, C[i]:5);
writeln( ' cek : ':5,p*p:5 ,'+',q*q:6,'=':3,r*r :7);
inc(i);
if (i mod 21 = 0) then
begin
write('tekan enter untuk melihat lanjutannya ... ');
readln;
end;
end;
end.
