Написать калькулятор не используя * /

// Функция умножения: a * b через сложение
function MyMultiply(a, b: integer): integer;
var
  res, i, absB: integer;
  isNegative: boolean;
begin
  res := 0;
  
  // Определяем знак результата
  isNegative := (a < 0) xor (b < 0); // xor возвращает true, если знаки разные
  
  // Берем модули чисел для цикла
  if a < 0 then a := -a;
  if b < 0 then b := -b;
  
  // Складываем 'a' само с собой 'b' раз
  for i := 1 to b do
    res := res + a;
    
  // Возвращаем результат с правильным знаком
  if isNegative then
    MyMultiply := -res
  else
    MyMultiply := res;
end;
 
 
// Функция деления: a / b через вычитание (целочисленное деление)
function MyDivide(a, b: integer): integer;
var
  count, absA, absB: integer;
  isNegative: boolean;
begin
  if b = 0 then
  begin
    writeln('Ошибка: Деление на ноль невозможно!');
    MyDivide := 0; // Или можно завершить программу
    exit;
  end;
 
  count := 0;
  
  // Определяем знак результата
  isNegative := (a < 0) xor (b < 0);
  
  // Берем модули чисел
  if a < 0 then a := -a;
  if b < 0 then b := -b;
  
  absA := a;
  absB := b;
  // Вычитаем делитель из делимого, пока делимое больше делителя
  while absA >= absB do
  begin
    absA := absA - absB;
    count := count + 1;
  end;
  
  // Возвращаем результат с правильным знаком
  if isNegative then
    MyDivide := -count
  else
    MyDivide := count;
end;