Program 01

Kerjakanlah Program Dibawah dan Cari kesalahan program tersebut?
Kemudian berikan batasan tidak ada angka dibelakang koma pada Gaji, Total dan Tunjangan.
setelah itu berikan Rata-rata pada prongram tersebut.
.......................................................................................

Var
Ttl, Gaji, Tunjangan : real ;
Jumlahnak : integer ;
Keterangan : string [25] ;
Begin
Gaj : = 500000 ;
Jmlahnak : = 3 ;
Tunjangan : = 0.25 * Gaji + Jumlahanak * 30000 ;
Total : = Gaji + Tunjangan ;
Keterangan : = ‘Karyawan Teladan’ ;
Writeln ( Gaji bulanan = Rp. ‘ , Gaji ) ;
Writeln ( ‘ Tunjangan = Rp. ‘ , Tunjngan ) ;
Writeln ( ‘ Total gaji = Rp. ‘ Ttal ) ;
Writeln ( ‘ Keterangan = Rp. ‘ , Keterangan ) ;
End .