menu pilihan

PROGRAM TEST;
USES CRT;
VAR A,B,L:REAL;
        P,C:INTEGER;
BEGIN
    CLRSCR;
    WRITELN('          >>>  MENU <<<');
    WRITELN(' ');
    WRITELN('1. CEK BILANGAN');
    WRITELN('2. LUAS PERSEGI PANJANG');
    WRITELN('3. SELESAI');
    WRITE('PILIHAN : ');READLN(P);
    IF P=1 THEN
    BEGIN
        CLRSCR;
        WRITE('MASUKKAN BILANGAN = ');READLN(C);
        IF C MOD 2 = 0 THEN WRITELN('BILANGAN ',C,' ADALAH BILANGAN GENAP')
        ELSE WRITELN('BILANGAN ',C,' BILANGAN GANJIL');
        READLN;
    END
    ELSE IF P=2 THEN
    BEGIN
            CLRSCR;
            WRITE('PANJANG =');READLN(A);
            WRITE('LEBAR =');READLN(B);
            L:=A*B;
            WRITELN('LUASNYA = ',L:5:2);
            READLN;
    END
    ELSE EXIT;
END.

gambar 1

gambar 2

gambar 3

gambar 4

gambar 5