quis program menggunakan pascal

uses crt;
var
gapok, gaji bersih,pajak:real;
n, golongan: integer;
nama,gol,nik: string

begin

writeln ('Menghitung gaji pegawai');
writlen ('-------------------------------');
writlen ('golongan  :1.111 2.1V 3.V');
writlen  (------------------------------');
write (;  masukan nama pegawai :' 0; read  (nama);
write('pilih nomor golongan:'); read(golongan);
if(golongan=1)then
begin gapok :=1500000;
end
else
 if (golongan=2)then
begin gapok: =2500000;
end

else
if  (golongan=3) then
begin gapok :=3500000;
end
else
writlen('Nama pegawai :',nama);
writlen(golongan :',gol);
writlen('gaji pokok:',gapok:0:2);
 gajibersih :=gapok-pajak;
readln;
readln;
end.