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

program z3;
var a, b, c: integer;
begin
writeln ('c='); readln (c);
for a:=1 to 20 do
for b:=1 to 20 do

if a*a+b*b=c then
writeln ('a=',a,'b=',b);
end.