Program Menghitung Gajih Pegawai Dengan Pascal

Selamat Malam Kali Ini Mr Stolid Ingin Memposting Coding/Program Menghitung Gajih Pegawai Kebetulan Baru" Ini Mr Stolid Dapat Tugas Dari Kampus Membuat Program Menghitung Gajih Pegawai Mengunakan Turbo Pascal 1.5, Kali Aja Lagi Ada Yang Butuh Programnya Oke Deh Gak Panjang Lebar Lagi Berikut Codingnya :

Program Menghitung_gajih_pegawai;
uses wincrt;
var
Nip,Nama:String;
GP,TJ,TG:real;
GL,u :char;
Begin
repeat
clrscr;
   Writeln('=================================');
   Writeln('Program Menghitung gajih Pegawai ');
  Writeln('=================================');
   Write('Masukan Nip Anda  :');Readln (Nip);
   write('Masukan Nama Anda :');Readln (Nama);
   Write ('Masukan Golongan :');Readln (Gl);
   Writeln('=================================');
   If Gl ='1' then
      GP:=500000
      else
       if Gl='2' then
          GP:=750000
          else
           if Gl='3' then
              GP:=1000000
              else
                if Gl>='4' then
                   GP:=1500000;
   writeln('Gajih Pokok = Rp.',GP:0:2);
   Begin
   TJ :=(0.1*GP);
   writeln('Tunjangan   = Rp.',TJ:0:2);
   TG:=GP+TJ;
   writeln('Total Gajih = Rp.',TG:0:2);
   end;
   Writeln('=====================================');
   write('Apakah Anda Ingin Mengulang lagi? Y/T :');readln(u);
   until upcase(u)<>'Y';
   donewincrt;
   end.

Berikut Screnshot Programnya :