Số Pithagoras

Bộ 3 số tự nhiên được gọi là số Pithagoras nếu tổng bình phương hai số trong đó bằng bình phương số thứ ba.
Lập trình để đưa ra các bộ số Pithagoras nhỏ hơn số tự nhiên p bất kỳ.
                                                                 Giải
Program B108SoPithagoras;
Uses Crt;
Var
   i,j,k,p:LongInt;
BEGIN
       ClrScr;
       Write('Nhap P = '); ReadLn(P);
       Write('=> Cac bo so Pithagoras trong khoang tu 1-',p,' la: ');
       Writeln;
       For i:=1 to p do
          For j:=i+1 to p do
              For k:=j+1 to p do
                   If (i * i + j * j = k * k) Then
                       Write(' (',i,' ',j,' ',k,')');
       ReadLn;
End.