PROGRAM IF SEDERHANA (PROG 18)

PROGRAM PROG18;
USES WINCRT;
VAR
   JK : CHAR;
   KET : STRING[12];
BEGIN
     CLRSCR;
     KET := 'LAKI - LAKI';
     WRITE('    MASUKKAN JENIS KELAMIN [L/P] = '); READLN(JK);
     IF (JK='P') OR (JK='p') THEN
        BEGIN
             KET := 'PEREMPUAN';
        END;
     WRITELN('    ANDA BERJENIS KELAMIN ',KET);
     WRITELN;
     WRITELN('    ACHMAD NABIL, M.Kom');
     WRITELN('        16.230.0059    ');
END.


HASIL