{ PYTHAGORAS.PAS Copyright (c) Pavel Patak } { Vypise vsechna reseni a2+b2=c2 na obrazovku (a,b,c <100). } { } { Datum:28.10.2004 http://www.trsek.com } Program Pythagoras; Var A,B,C : Integer; Begin For A:=1 to 100 do For B:=1 to 100 do For C:=1 to 100 do if A*A +B*B = C*C then Write(a:3,' ',b:3,' ',c:4,' '); {Ta mezera je tam kvuli uprave, write aby se vsechno veslo na obrazovku} Readln; End.