[Mrak]

Код:

for i:=1 to 9 do
  for j:=0 to 9 do 
    if i+j = N then writeln(inttostr(i)+inttostr(j));

как то так, если я правильно понял