Если писать по вашему условию то будет так
var
i
,a
,b
:integer;
begin
For i
:=10to99doBegin
a
:=(i
div10);
b
:=(i
mod10);
if(3*(a
+b
))div(a
+b
)=2 thenwrite(i
,' ');
End;
readln;
end.
но я что то не совсем понял, как может такое быть, если взять 1+3 = 4 *3 = 12.. все увел. в 3 раза..