CLS
PRINT “Óäàëåíèå âñåõ ýëåìåíòîâ, ”;
PRINT “áîëüøèõ çàäàííîãî ÷èñëà.”
PRINT
PRINT
PRINT
PRINT “Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà…”;
INPUT “”, N
FOR I = 1 TO N
         PRINT “Ââåäèòå ”; I; “ýëåìåíò…”;
        INPUT “”, A(I)
NEXT I
PRINT 
PRINT “Ââåäèòå ãðàíè÷íîå ÷èñëî…”;
INPUT “”, P
PRINT 
PRINT “Èñõîäíûé ìàññèâ”;
FOR I = 1 TO N
          PRINT A(I);
NEXT I
FOR I = 1 TO  N
          IF A(I) < P THEN K = K + 1 : B(K) = A(I)
NEXT I
PRINT 
PRINT 
FOR I = 1 TO N
          IF A(I) = B(I) THEN F = F + 1
NEXT I
IF F = N THEN
          PRINT “Âñå ýëåìåíòû èñõîäíîãî ìàññèâà ”;
          PRINT “ìåíüøå ââåäåííîãî ÷èñëà.”;
ELSEIF K = 0 THEN
          PRINT “Âñå ýëåìåíòû ìàññèâà áîëüøå çàäàííîãî ÷èñëà”;
ELSE
          “Èñïðàâëåííûé ìàññèâ”
          FOR I = 1 TO K
                 PRINT B(I);
          NEXT I
END IF
END