Kodingan Pascal Menghitung Gaji

program gaji;
uses crt;
var golongan:string;
anak:integer;

begin
   clrscr;
   write ('golongan ');
   readln(golongan);
   write ('anak ');
   readln(anak);
   if anak>2 then
   begin
   if golongan ='madya' then writeln(1250000+ 2 * 40000)
   else if golongan = 'pratama' then writeln(1500000+2*50000)
   else if golongan = 'utama' then writeln(1750000+2*60000)
   end
   else if golongan ='madya' then writeln(1250000+anak*40000)
   else if golongan ='pratama' then writeln(1500000+anak*50000)
   else if golongan ='utama' then writeln(1750000+anak*60000);
   readln;
end.