Pascal :

var   n,i,j:longint;a:array[-1000..1000] of longint;
begin
    readln(n);
    a[0]:=1;
    for i:=1 to trunc(sqrt(n)) do
     for j:=1 to n do
      a[j]:=a[j]+a[j-i*i];
    writeln(a[n]);
end.