Program Kelompok Funtastic Four

uses wincrt;

var
Nama,Golongan:string;
JamLembur:integer;
Gaji,UangLembur,UpahLembur,TotalGaji:real;
ulang:char;

label
balik;

begin
ulang := 'y';
while (ulang = 'y') do
begin
balik:
clrscr;
writeln('Program Kelompok Funtastic Four');
writeln('Ketua Rizal');
writeln('Anggota1 Teguh, Sugi, Galang');
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('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

begin
write('Tidak ada golongannya');

end;
write('Untuk mengulangi masukan huruf Y ? ');
readln(ulang);

end;
if ulang = 't' then
begin
write('Selesai......');

end;

end.