Listing: PITAGORA.PAS

Program Pitagora; 
 var a,b,c:Longint; 
 f:Text; 
 
 procedure Citire; 
 begin 
 Assign(f,'PITAGORA.IN'); Reset(f); 
 Readln(f,a); 
 Close(f) 
 end; 
 
 procedure Rezolvare; 
 var d:Longint; 
 begin 
 Assign(f,'PITAGORA.OUT'); Rewrite(f); 
 if Odd(a) then d:=1 else d:=2; 
 while d<=a do 
 begin 
 if (a*a mod d=0) 
 then 
 begin 
 c:=(a*a div d+d) div 2; 
 b:=c-d; 
 if (a<b) and (a*a=(c-b)*(b+c)) 
 then Writeln(f,b,' ',c) 
 end; 
 Inc(d,2) 
 end; 
 Close(f) 
 end; 
 
 Begin 
 Citire; 
 Rezolvare 
 End. 


       

      

[cuprins]