Program Menghitung Gaji (DELPHI)

program Menghitung_Gaji;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
nama:string;
gol,status:char;
gp,ti,ta,gaji:real;
anak:integer;
begin
write(’Nama :’);readln(nama);
write(’Golongan(1,2,3) :’);readln(gol);
writeln(’Status’);
writeln(’ 1.Belum Menikah’);
writeln(’ 2.Menikah’);
writeln(’ 3.Pernah Menikah’);
write(’Status Anda [...]