program studikasus;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  pil:integer;

procedure data_diri;
var
nm:string;
t: string;
tl: integer;
begin
writeln;
writeln('---------------------- DATA DIRI----------------------');
write(' Nama                             : '); readln(nm);
write(' Tempat Lahir                     : '); readln(t);
write(' Tanggal Lahir                    : '); readln(tl);
readln;
end;

procedure jabatan;


begin
writeln(' Direktur                   : 1');
writeln(' Manager                    : 2');
writeln(' staff                      : 3');
writeln;
Writeln('-------SILAKA MASUKAN PILIHAN------------');
writeln;
write(' Masukan Pilihan             : '); readln(pil);
writeln;

end;

procedure gaji;
var
gp:integer;
t2:real;
tl2:real;
begin

if pil=1 then
begin
gp:=3000000;
t2:=2/10*gp;

end
else
if pil=2 then
begin
gp:=2500000;
t2:= 3/10*gp;


end
else
if pil=3 then
begin
gp:=1800000;
t2:=4/10*gp;


end;
tl2:=gp+t2;

writeln(' Gaji                          : ',gp);
writeln(' tunjangan                     : ',t2:4:2);
writeln(' total gaji                    : ',tl2:4:2);
readln;
end;


  {utama}
  var
  a:char;

begin
writeln('*********************** PROGRAM GAJI *****************');
a:='Y';
while a='Y' do
begin
 data_diri;

 jabatan;
 gaji;
 writeln(' -------------------PENGULANGAN-----------------');
 write(' mengulang atau tidak[Y/T] : '); readln(a);
  end;
  end.