PRINT "Nahozdenie dvuh maximalnyh i minimalnyh znachenij i"
PRINT "zapis' chisla v obratnom porjdke"
CLS
1 : INPUT "vvedite chislo ", c
IF INT(c) <> c AND c <= 0 THEN
PRINT "drobnoe otriz"
GOTO 1
END IF
IF INT(c) <> c THEN
PRINT "drobnoe"
GOTO 1
END IF
IF c = 0 THEN
PRINT "ravno nuly"
GOTO 1
END IF
IF c < 0 THEN
PRINT "otrizatellnoe"
GOTO 1
END IF
IF c < 10 THEN
PRINT "Vy vveli odnoznachnoe chislo"
GOTO 1
END IF

DO
LOOP UNTIL INT(c) = c AND c >= 10
DIM a(10)
DO
n = n + 1
a(n) = c MOD 10
c1 = c1 * 10 + a(n)
c = c \ 10
LOOP UNTIL c = 0
FOR i = 1 TO n
FOR j = 2 TO n
IF a(j) < a(j - 1) THEN SWAP a(j), a(j - 1)
NEXT
NEXT
IF a(1) = a(n) THEN PRINT "Odinakovye zifry": END

IF a(n) = a(n - 1) OR c1 < 100 THEN
PRINT "Maximalnaj cifra = "; a(n)
ELSE PRINT "Maximalnye cifry = "; a(n); "i"; a(n - 1)
END IF
IF a(1) = a(2) OR c1 < 100 OR a(n - 1) = a(2) THEN
PRINT "Minimalnaj cifra = "; a(1)
ELSE PRINT "Minimalnye cifry = "; a(1); "i"; a(2)
END IF
PRINT "Chislo v obratnom poryadke "; c1