1.
read(r);
write(pi*r*r);
2.
read(n)
for a:=2 to n-1 do
if n mod a=0 then
write(a,' ');
pascal代码.mod表示取余数