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;