PROGRAM chinlan;
USES crt;
VAR x:INTEGER;a,b,c,d :BYTE;
FUNCTION abcd(a,b,c,d : BYTE):INTEGER;
VAR x: INTEGER;
BEGIN
x:= 1000*a + 100*b + 10*c +d ;
abcd:=x;
END;
FUNCTION abc(a,b,c: BYTE): INTEGER;
VAR x: INTEGER;
BEGIN
x:= 100*a + 10*b +c ;
abc:=x;
END;
BEGIN
FOR a:= 1 TO 9 DO
FOR b:= 0 TO 9 DO
FOR c:= 0 TO 9 DO
FOR d:= 0 TO 9 DO
BEGIN
IF 9*abc(a,b,c) = abcd(a,b,c,d) THEN BEGIN Write(abcd(a,b,c,d):6) ; Writeln(abc(a,b,c):5) ; END;
IF 9*abc(a,b,d) = abcd(a,b,c,d) THEN BEGIN Write(abcd(a,b,c,d):6) ; Writeln(abc(a,b,d):5) ; END;
IF 9*abc(a,c,d) = abcd(a,b,c,d) THEN BEGIN Write(abcd(a,b,c,d):6) ; Writeln(abc(a,c,d):5) ; END;
IF 9*abc(b,c,d) = abcd(a,b,c,d) THEN BEGIN Write(abcd(a,b,c,d):6) ; Writeln(abc(b,c,d):5) ; END;
END;
readln
END.
