Menampilkan Program Untuk Menghitung Harga Barang Dalam Turbo Pascal

MENGHITUNG HARGA BARANG

uses crt;
var
   ir,c,d,rj: longint;
   i        : byte;
begin
     clrscr;
     write('Input harga IR64     :');readln(ir);
     write('Input Harga C4       :');readln(c);
     write('Input Harga Delanggu :');readln(d);
     write('Input Harga Rajalele :');readln(rj);
     writeln('-----------------------------------------------------------------');
     writeln('| No |   Jumlah (kg)  |  IR64  |   C4  |   Delanggu  |  Rajalele|');
     writeln('-----------------------------------------------------------------');

     for i:= 1 to 5 do
     writeln(i:2, i*5:12, ir*i*5:16, c*i*5:8, d*i*5:10, rj*i*5:13);
     writeln('-----------------------------------------------------------------');
     writeln(' NAMA   : MEANUS LAIA');
     writeln(' NPM    : TI-P1502');
     writeln(' M.K    : LOGIKA & ALGORITMA');
     readln;
end.