program p12;
Var k,k2:integer;

begin
writeln('Zadanie nomer 1:');
repeat begin
k:=k+1;
if ((k mod 10) - (k div 10) = 1) or ((k div 10) - (k mod 10) = 1) then writeln(k);
end;
until k=99;

writeln('Zadanie nomer 2:');
k2:=100;
while (k2>=100) and (k2<=998) do begin
k2:=k2+1;
if ((k2 div 100)-(k2 mod 100 div 10) = 0) or
   ((k2 mod 100 div 10)-(k2 mod 100 mod 10) = 0) or
   ((k2 div 100)-(k2 mod 100 mod 10) = 0) then writeln(k2);

end;



end.