

{
PROGRAMMED BY   : MOHAMMAD ALJADA
DOWNLOADED FROM : WWW.GEOCITIES.COM/MOHJADA
PROGRAM         : Print Numbers Larger Than 90
}

USES WINCRT;

VAR ARR:ARRAY[1..100,1..100] OF INTEGER;
    ARR1:ARRAY[1..100]OF INTEGER;
    I,J,N,M,C:INTEGER;


BEGIN

     WRITE('INPUT NUMBER OF ROWS   :');
     READLN(N);
     WRITE('INPUT NUMBER OF COLUMS :');
     READLN(M);

     C:=0;

     RANDOMIZE;
     FOR I:=1 TO N DO
         FOR J:=1 TO M DO
         ARR[I,J]:=RANDOM(100);

     FOR I:=1 TO N DO
         FOR J:=1 TO M DO
         IF ARR[I,J] >= 90 THEN
         BEGIN
         C:=C+1;
         ARR1[C]:=ARR[I,J];
         END;

     FOR I:=1 TO C DO
     BEGIN    
     WRITE(ARR1[I]:3);
     IF I MOD 15 =0 THEN WRITELN;
     END;



END.

      