PENGEMBANGAN PROG19 (PROG 20)

PROGRAM PROG20;
USES WINCRT;
VAR
   NILAI : INTEGER;
   KET : STRING[20];
   LAGI : CHAR;
BEGIN
     CLRSCR;
     LAGI := 'Y';
     WHILE (LAGI='Y') OR (LAGI='y') DO
           BEGIN
                CLRSCR;
                WRITE('   MASUKKAN NILAI UJIAN = '); READLN(NILAI);
                IF (NILAI>=0) AND (NILAI<=59) THEN
                   BEGIN
                        KET := 'TIDAK LULUS';
                   END
                   ELSE
                       IF (NILAI>=60) AND (NILAI<=100) THEN
                          BEGIN
                               KET := 'LULUS'
                          END
                          ELSE
                              BEGIN
                                   KET := 'NILAI TIDAK ADA';
                              END;
                WRITELN('   ANDA DINYATAKAN ',KET);
                WRITELN;
                WRITE('   INGIN INPUT DATA [Y/T] = '); READLN(LAGI);
           END;
     WRITELN('   ACHMAD NABIL, M.Kom');
     WRITELN('      16.230.0059');
END.

HASIL