soal no 3

uses crt;
var
kode : string;
nama : string;
jabatan : string;
status : string;
gaji : real;
tjgn : real;
tjgkl : real;
totgaji : real;


Begin
{Proses Input Perusahaan}
Clrscr;
Writeln('Pembayaran Gaji Pegawai Perusahaan Kelapa Sawit');
Writeln(' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');
Write('Kode :'); Readln(kode);
Write('Nama :'); Readln(nama);
Write('Jabatan:'); Readln(jabatan);
write('Status : '); readln(status);
{Proses Seleksi Berdasarkan Jabatan}
begin
if kode='1' then
begin
gaji:=2500000;
tjgn:=(35/100)*gaji;
end
else if kode='2' then
begin
gaji:=2000000;
tjgn:=(10/100)*gaji;
end
else if kode='3' then
begin
gaji:=1500000;
tjgn:=(5/100)*gaji;
end;

begin
if status= 'menikah' then
tjgkl := (15/100)*gaji
else
tjgkl :=0;
end;




{ProsesMenghitung Total Gaji}
Begin
totgaji :=gaji+tjgn+tjgkl;


End;


begin
{prose output perusahaan}
Clrscr;
Writeln(' PERUSAHAAN KELAPA SAWIT ');
Writeln('------------------------------------------------------------------------');
Writeln(' No. Kode Jabatan Nama Status Gaji Tunjangan Tunjangan Kelaurga Total Gaji');
Writeln('------------------------------------------------------------------------');


Writeln(kode:7, nama:10, jabatan:5, status:8, gaji:10:0, tjgn:10:0, tjgkl:10, totgaji:12:0);

Writeln('------------------------------------------------------------------------');
ReadLn;
end;
end;
end.

output program: