一个自然数有十个约数,求符合条件的最小自然数,用PASCAL语言

var a,b,s,n:longint;
begin
s:=0;
b:=0;
while s 10 do
begin
inc(b);
for n:=1 to b do
if b mod n=0 then s:=s+1;
end;
writeln(b);
end.
希望楼主采纳,另外,二楼的有错误,最后应该是writeln(a);