Program Pemakai_Variabel

###########################
# Application = Turbo Pascal      #
# By               = RismaCheaters   #
#OS               = Win XP/7            #
###########################

Program Pemakai_Variabel; User Crt; Var       Total,Dioda,Resistor,Transistor:inteser; Begin       Clscr;          Dioda         : = 5000          Resistor      : = 7000          Transistor   : = 8000          Total           : = Dioda + Resistor + Transistor ;          Writeln('Harga Dioda                 = Rp',Dioda            );          Writeln('Harga Resistor              = Rp', Resistor       );          Writeln('Harga Transistor           = Rp', Transistor    );          Writeln('Harga Total                   = Rp', Total            );          Readin; End.

Selamat Mencoba !!