Menghitung jam lembur pascal

var
 i , jam ,k, h: integer;
begin
i:= 48 ;
jam:=strtoint(edit1.Text);
begin
if jam < i then
label3.Caption:= inttostr (jam*2000)
else
if jam <= i then
label3.caption:= inttostr(i*2000)
else
k:= jam-i;
h:= k*3000 ;
if jam > i then
label3.caption:= inttostr( 96000 + h);
end;
end;
end.