PROG 16

CONTOH INPUT PROGRAM LAINNYA :

PROGRAM PROG16;
USES WINCRT;
VAR
   NM : STRING;
   KL : STRING[4];
   UM : INTEGER;
   LAGI : CHAR;
BEGIN
     LAGI := 'Y';
     CLRSCR;
     WHILE (LAGI='Y') OR (LAGI='y') DO
           BEGIN
                CLRSCR;
                WRITELN('     DATA SISWA   ');
                WRITELN;
                WRITE('  1. NAMA     = '); READLN(NM);
                WRITE('  2. KELAS    = '); READLN(KL);
                WRITE('  3. UMUR     = '); READLN(UM);
                WRITELN;
                WRITELN(' ',NM,' DI KELAS ',KL,' DENGAN UMUR ',UM);
                WRITELN;
                WRITE(' INGIN INPUT LAGI[Y/T] = '); READLN(LAGI);
           END;
     WRITELN(' TERIMA KASIH ATAS INPUTNYA----KELUAR  ');
     WRITELN;
     WRITELN('  ACHMAD NABIL, M.Kom');
     WRITELN('      16.230.0059    ');
END.

HASIL