```
var
  val1: LongInt;
  val3: LongInt;

procedure TForm1.Button1Click(Sender: TObject);
begin
  val1 := StrToInt(Edit1.Text);
  val3 := (val1 DIV 2);
  Label2.Caption := FloatToStr(val3);
end;

```