gaji

uses wincrt;

const
    nama = 'copy paste';
    nip = 'A3110';
    gaji = 1000000;
    lembur = 50000;
begin
 clrscr;
    writeLn('Nama Pegawai : ',nama);
    writeLn('N I P : ',nip);
    writeLn('Gaji Pokok : ',gaji);
    writeLn('Uang Lembur : ',lembur);
    writeLn('--------------------- +');
    writeLn('Total Gaji : ',gaji+lembur);
    writeLn;
    writeLn('Tekan tombol ENTER untuk keluar');
 readLn;
end.