一些四位数,百位数字都是3,十位数字都是6,并且它们既能被2整除,又能被 3整除,求这样的四位数中最大的和最小的两数各是几? 程序是什么？？？

var i:longint;
s:string;
begin
for i:=1000 to 9999 do
begin
str(i,s);
if (s[2]<>'3') or (s[3]<>'6') then continue;
if i mod 6<>0 then continue;
writeln(i);
break;
end;
for i:=9999 downto 1 do
begin
str(i,s);
if (s[2]<>'3') or (s[3]<>'6') then continue;
if i mod 6<>0 then continue;
writeln(i);
break;
end;
end.
MIN=1362
MAX=9366

楼上正解啊！

多谢！