LATIHAN E NO 6

uses wincrt;
label ulang;
var
  gol,bonus,mau:string;
  kerja,umur:integer;
begin
ulang:
clrscr;
write('Masukkan Umur Anda (Tahun)=');readln(umur);
write('Masukkan Status kerja [staf/nonstaf] = ');readln(gol);
write('Masukkan Lama Bekerja (Tahun) = ');readln(kerja);
if gol='staf' then
  begin
  if (kerja>=5) then
     begin
     if (umur>=50) then
        begin
        Bonus:='Rp. 1.000.000';
        end
     else
        Bonus:='Rp. 500.000';
     end
  else if (kerja<5) and (umur<50) then
    begin
    Bonus:='Rp. 300.000';
    end
  end
else
  begin
  if (kerja>=5) then
   begin
   if (umur>=50) then
    begin
    Bonus:='Rp. 400.000';
    end
   else
    Bonus:='Rp. 250.000';
   end
  else
   Bonus:='Rp. 0';
  end;
writeln('Bonus Pegawai Adalah = ',bonus);
write('Mau ulang [y/t]?');read(mau);
if (mau='y') or (mau='Y') then goto ulang
end.

Hasilnya