program menghitung gaji dan tunjangan

PROGRAM Pengulangan;
uses wincrt;

var 
I : integer;
nama : string;
golongan : char;
tunjangan : real;
upah : integer ;
sex : string;
Total : real;



begin
for i:= 1 to 5 do
begin
write ('Masukan Nama :');
readln (nama);
write ('Masukan Golongan :');
readln (golongan);
Write ('Masukan jenis kelamin : ');
readln (sex);
begin
case golongan of
     'a':upah :=1000;
     'b':upah :=700;
     'c':upah :=500;

 else
      upah :=0;

end;

if sex='female'then
tunjangan :=0.1*upah

else if sex='male' then
tunjangan :=0.2*upah;

writeln ('tunjangan :',tunjangan :0:0);


Total:=upah+Tunjangan;
writeln ('Total Upah : ',Total:0:0);
writeln('');
writeln('======================');
end;
end;

end.