Gaji Kelompok Heboh

uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : real;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
begin
ulang := 'y';
while (ulang = 'y') or (ulang = 'Y') do
begin
clrscr;
writeln ('PT Mercu Buana');
writeln ('Program Perhitungan Gaji');
writeln;
write('Nama : ');
readln(Nama);
write('Golongan (1a/1b/1c) : ');
readln(Golongan);
write('Jam Lembur : ');
readln(JamLembur);
if (Golongan = '1a') then
begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total 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('Gaji Pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total 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('Gaji pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
begin
write('Boss ga da...,');
end;
write('Mau coba lagi ga..? (y/t) : ');
readln(ulang);
if ulang = 't' then
end;
begin
writeln ('The End');

end;

end.

Nama Kelompok :

- Pahmi Pahrudin 41409120019
- Syaifullah Fazar Rizki 41409120002
- Eka Jovi Setiawan 41409120016
- Indra Anugrah 41409120006
- Garincha Satria Tambunan 41409110034
-