Input Harga Penjualan dengan Program pascal

Merubah Program Input Penjualan dari C++ ke bahasa Pascal

Listing Program:

uses crt;
var
   kd, jlh    : integer;
   hrg, total : longint;
   nama       : string[12];
begin
clrscr;
       writeln ('INPUT HARGA  PENJUALAN');
       writeln ('======================');
       writeln;
       write   ('Kode          : ');readln(kd);
       if kd = 1 then
         begin
           nama := 'Televisi';
           hrg  := 1750000;
         end
       else if kd = 2 then
         begin
           nama := 'DVD';
           hrg  := 650000;
         end
       else
         begin
           nama := 'CD-ROM';
           hrg  := 450000;
         end;
       writeln ('Nama          : ',nama);
       writeln ('Harga         : Rp ',hrg);
       write   ('Jumlah        : ');readln(jlh);
       total := hrg * jlh;
       writeln ('Total harga   : Rp ',total);
       writeln;
       writeln ('Terima kasih');
       readln;
end.

Hasil Program: