Kullanıcı tarafından girilen 10 sayının ortalaması

procedure TForm1.Button2Click(Sender: TObject);
var
 a,b,c:integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  c:=a+b;
  label3.Caption:=inttostr(c);
  {
   burada c:=a+b; yerine c:=a-b; c:=a*b; yazılarak diğer matematiksel
işlemler yapılabilir.   c:=a/b; işlemi için c değişkeni mutlaka ondalıklı
sayı olmalı yani c: extended; olarak   tanımlanmalıdır. bilindiği gibi
extended integer veri tipini kapsar. Dolayısıyla extended olarak
tanımlanan   a,b,c değişkenleri ile tüm işlemler yapılabilir.
  }
end;