home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / HSPASCAL.LZH / HSPASCAL / LAST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-10-10  |  609b  |  31 lines
  1. program test (input,output);
  2.  
  3.  var     
  4.         i :  integer;
  5.         j : integer;        
  6.         k : integer;
  7.         n : integer ; 
  8.         a : integer;
  9.   begin
  10.         
  11.    clrscr;
  12.    read(n);
  13.    a := 0;
  14.     for i := 1 to n-1 do
  15.      for j := 1 to n-1 do
  16.       for k := 1 to n-1 do
  17.        if (i*i+j*j=k*k) then 
  18.         begin
  19.          if (a<3) 
  20.           then
  21.            a := a+1 
  22.           else
  23.            begin
  24.             a := 0;
  25.             writeln
  26.            end;     
  27.          write(i,'*',i,'+',j,'*',j,'=',k,'*',k,'   ');
  28.         end;        
  29.    writeln
  30.   end.
  31.