Program Delphi Daily Problem "PEMAKAIAN AIR"

procedure TAir.Panel1Click(Sender: TObject);
var
  j,b1,b2,b3,s,bb,ba,h,b:integer;
begin
  j:=strtoint(edit1.Text);
  bb:=7000;
  ba:=10000;
  b1:=10*3300;
  b2:=10*6000;
  b3:=10*9400;
  if (j>=0) and (j<=10) then
  begin
  b:=(j*3300)+bb+ba;
  h:=j*3300;
  edit2.text:=inttostr(h);
  edit3.text:=inttostr(b);
  end;
  if (j>=11) and (j<=20) then
  begin
  s:=j-10;
  b:=(s*6000)+bb+ba+b1;
  h:=(s*6000)+b1;;
  edit2.text:=inttostr(h);
  edit3.text:=inttostr(b);
  end;
  if (j>=21) and (j<=30) then
  begin
  s:=j-20;
  b:=(s*9400)+bb+ba+b1+b2;
  h:=(s*9400)+b1+b2;;
  edit2.text:=inttostr(h);
  edit3.text:=inttostr(b);
  end;
  if j>30 then
  begin
  s:=j-30;
  b:=(s*12600)+bb+ba+b1+b2+b3;
  h:=(s*12600)+b1+b2+b3;;
  edit2.text:=inttostr(h);
  edit3.text:=inttostr(b);
  end;


end;

procedure TAir.Panel2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';

end;

procedure TAir.Panel3Click(Sender: TObject);
begin
DailyProblems.Show;
Air.Hide;

end;

end.