求所有四位完全平方数的一款自编的pascal程序,新手上路,求高手指教