程序如下：
var a,b:longint; //两个数 a,b直接做循环变量
begin
for a:=1 to 243 do //因为a*b要小于等于243 所以没必要超过它
for b:=1 to 243 do //双重循环 同上
if (a mod b=0)and((a+b)+(a-b)+(a*b)+(a div b)=243) //要(a mod b=0)判断是否整除
then writeln(a:5,b:5); //如满足条件则打印
end.