pascal回文数

100—999之间所有整数正过来加倒过来是回文数

如 231+132=363 如果是就输出

菜鸟滚一边去

program dff;
var i,a,b,c,z,j:integer;
s:string;
begin
for i:=100 to 999 do
begin
str(i,s);
a:=ord(s[1])-ord('0');
b:=ord(s[2])-ord('0');
c:=ord(s[3])-ord('0');
j:=c*100+b*10+a;
z:=i+j;
if z mod 10=z div 100 then writeln(z);
end;
end.