WITH ADA.TEXT_IO; USE ADA.TEXT_IO;
WITH ADA.INTEGER_TEXT_IO; USE ADA.INTEGER_TEXT_IO;
PROCEDURE ABC170A IS
   X : INTEGER;
BEGIN
   FOR I IN 1 .. 5 LOOP
      GET(X);
      IF X /= I THEN
         PUT(INTEGER'IMAGE(I));
      END IF;
   END LOOP;
END ABC170A;