23 lines
436 B
Plaintext
23 lines
436 B
Plaintext
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
|