Program Pascal 2

Ini ada listing yang kedua, harap dicoba ya..

program gaji;
uses wincrt;
var
gp,gt:longint; {gp=gaji pokok, gt=gaji total}
st:string;
begin
write('Masukkan status anda = ');readln(st);
writeln;

gp:=100000;
gt:=115000;

if (st<>'bujangan') and (st<>'kawin') then
begin
writeln('status salah');
end
else
begin
if st='bujangan' then
writeln('Gaji anda adalah = ',gp);
if st='kawin' then
writeln('Gaji anda adalah = ',gt);
end;
end.