• Source 
    1. program toko_susu;
    2. uses crt;
    3. var 
    4. susu, jmlh, krds, klng:integer;
    5. kemasan, i, j:char;
    6. begin 
    7. clrscr;
    8. Writeln('==========================');
    9. Writeln('Selamat datang ditoko Susu');
    10. Writeln('==========================');
    11. Writeln('=== Daftar Menu Toko Kita ===');
    12. Writeln('1. Susu SMG');
    13. Writeln('a. Kaleng (10rb)');
    14. Writeln('b. Kardus (5rb)');
    15. Writeln();
    16. Writeln('2. Susu Bendera');
    17. Writeln('a. Kaleng (20rb)');
    18. Writeln('b. Kardus (15rb)' );
    19. end.
    20.  
    21.