

{
PROGRAMMED BY   : MOHAMMAD ALJADA
DOWNLOADED FROM : WWW.GEOCITIES.COM/MOHJADA
PROGRAM         : Find Students Whose Marks Above 50
}

USES WINCRT;

VAR ARR1:ARRAY[1..100] OF STRING;
    ARR2:ARRAY[1..100]OF INTEGER;
    I,N,P:INTEGER;


BEGIN

     WRITE('INPUT NUMBER OF STUDENTS :');
     READLN(N);

     FOR I:=1 TO N DO 
     BEGIN
     WRITE('INPUT STUDENT [',I,'] NAME :');
     READLN(ARR1[I]);
     WRITE('INPUT STUDENTS DEGREE :');
     READLN(ARR2[I]);
     END;

     CLRSCR;
     P:=3;

     WRITELN('STUDENT NAME                 DEGREE');
     WRITELN('------------                 ------');

     FOR I:=1 TO N DO
     IF ARR2[I]>= 50 THEN
     BEGIN 
     WRITE(ARR1[I]);
     GOTOXY(30,P);
     WRITELN(ARR2[I]);
     P:=P+1;
     END;


      



END.

      