IF DAN PERULANGAN Y/T (PROG 19)

PROGRAM PROG19;
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
                       BEGIN
                            KET := 'LULUS'
                       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