Talimat: Mod operatörünü kullanarak iki sayının kalanını hesapla.
Kod:
Var
  number1, number2, resultValue : Integer;
{
  number1 = 20;
  number2 = 6;
  resultValue = number1 Mod number2;
  ShowMessage(IntToStr(number1) + ' Mod ' + IntToStr(number2) + ' = ' + IntToStr(resultValue));
}