记录编号	98062	评测结果	AAAAAAAAAA
题目名称	[USACO Oct07] 完全平方数	最终得分	100
用户昵称	gg	是否通过	通过
代码语言	Pascal	运行时间	0.011 s
提交时间	2014-04-21 16:59:05	内存使用	0.17 MiB

program byhdyczp;
var
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z:integer;
begin
assign(input,'squares.in');
assign(output,'squares.out');
reset(input);
rewrite(output);
read(n);
for a:=1 to 500 do
for b:=1 to 500 do
if a*a=b*b+n then c:=c+1;
writeln(c);
close(input);
close(output);
end.