BEGIN
    INTEGER PROBE, SQUARE;
    BOOLEAN DONE;

    WHILE NOT DONE DO BEGIN
        PROBE := PROBE + 1;
        SQUARE := PROBE * PROBE;
        IF MOD(SQUARE, 1000000) = 269696 THEN BEGIN

            OUTTEXT("THE SMALLEST NUMBER: ");
            OUTINT(PROBE,0);
            OUTIMAGE;

            OUTTEXT("THE SQUARE : ");
            OUTINT(SQUARE,0);
            OUTIMAGE;

            DONE := TRUE;
        END;
    END;

END