alina := procedure(~x, ~S);

   for n := 2 to x do
      a := n^2;
      Include(~S, a);
   end for;
   m := #S;
   print m;

end procedure; 


function alina2(x)
   return { n^2 : n in [2..x] };
end function;


procedure alina3(x1, x2, ~S)
   for n := x1 to x2 do
      Include(~S, n^2);
   end for;
end procedure;
