Блок-схемы по коду

var
  Form1: TForm1;
 
  a, i, x, d, r, o, s : integer;
  k:array[1..5] of integer;
  str:string;
     Sep:boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then a:=a+187000;
end;
 
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then a:=a+237000;
end;
 
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then a:=a+75000;
end;
 
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked then a:=a+487000;
end;
 
procedure TForm1.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked then a:=a+120000 ;
end;
 
procedure TForm1.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked then a:=a+86000;
end;
 
procedure TForm1.CheckBox7Click(Sender: TObject);
begin
if checkbox7.Checked then a:=a+145000 ;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=(strtoint(edit4.text))*13000;
d:=(strtoint(edit2.text))*720000;
d:=d+a+s+k[i]*(strtoint(edit3.Text)) ;
edit1.Text:=(Inttostr(d));
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
a:=0;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
 Str:=Edit2.Text;
 Sep:=False;
 for x:=1 to Length(Str) do
 begin
 if (str[x] in ['A'..'Z']) then ShowMessage('Error');
end;
 
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.ItemIndex=0 then begin
i:=1;
k[1]:=2000;
end;
if combobox1.ItemIndex=1 then begin
i:=2;
k[2]:=2500;
end;
if combobox1.ItemIndex=2 then begin
i:=3;
k[3]:=3500;
end;
if combobox1.ItemIndex=3 then begin
i:=4;
k[4]:=2800;
end;
if combobox1.ItemIndex=4 then begin
i:=5;
k[5]:=4000;
end;
end;
 
procedure TForm1.Edit4Change(Sender: TObject);
begin
 Str:=Edit4.Text;
 Sep:=False;
 for o:=1 to Length(Str) do
 begin
 if (str[o] in ['A'..'Z']) then ShowMessage('Error');
end;
end;
 
procedure TForm1.Edit3Change(Sender: TObject);
begin
 Str:=Edit3.Text;
 Sep:=False;
 for r:=1 to Length(Str) do
 begin
 if (str[r] in ['A'..'Z']) then ShowMessage('Error');
end;
 
end;
procedure TForm1.CheckBox8Click(Sender: TObject);
begin
if checkbox8.Checked then a:=a+243000 ;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
application.ProcessMessages;
label5.Left:=label5.Left+5;
end;
 
end.