7,找数.一个三位数,各位数字互不相同,十位数字比个位,百位数字之和还要大,且十位,

program zfj;
var
a,b,c,m,k,kend:integer;
sushu:boolean;
begin
for m:=100 to 999 do
begin
sushu:=false;
a:=m div 100;
b:=(m div 10 ) mod 10 ;
c:=m mod 10;
if(a<>b)and(b<>c)and(a<>c)and(b>(a+c))
then
begin
kend:=trunc(sqrt(a+b));
for k:=2 to kend do
begin
if((a+b) mod k)=0
then
sushu:=true;
end;
end;
if sushu=true
then
write(m:5);
end;
end.
望采纳！！！