пятница, 4 ноября 2011 г.

program z3;
var a, b, c: integer;
begin
for a:=1 to 20 do
for b:=1 to 20 do
for c:=1 to 20 do
if a*a+b*b=c*c then
writeln ('a=',a,'b=',b,'c=',c);
end.