Gaji Kelompok-1

{ Kelompok 1
Iman Susilo Nim : 41409120013
Agus Triwijaya Nim : 41409120064
Ridwan Effendi Nim : 41409120068
Munasor Mursidi Nim : 41409120004
}
uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : integer;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
begin
ulang := 'y';
while (ulang = 'y') or (ulang = 'Y') do
begin
clrscr;
write('Nama : ');
readln(Nama);
write('Golongan (1a/1b/1c) : ');
readln(Golongan);
write('Jam Lembur : ');
readln(JamLembur);
writeln;
if (Golongan = '1a') then
begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end

else
if (Golongan = '1b') then
begin
Gaji := 750000;
UangLembur := 3500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = '1c') then
begin
Gaji := 850000;
UangLembur := 5000;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
writeln('Gak ada golongannya');
writeln;
write('Mau mengulangi lagi (y/t)? ');
readln(ulang);
writeln('Selesai.......');
end;
end.