Здравствуйте, Sinclair, Вы писали:

S>Ну-ка, приведите мне пример кода, на любом языке, который выполняет следующие действия:
S>1. Снимает заданное количество рублей со счета А
S>2. Кладет это количество рублей на счет Б.
S>3. Записывает данные о транзакции в файл
S>4. Если что-то не удалось сделать, отправляет письмо на определенный адрес, с указанием подробностей ошибки.

S>Пожалуйста, воздержитесь от использования исключений. А мы посмотрим.

Во-первых, и в главных, не "Ну-ка"-йте тут. Что ещё за моду взяли.
Во-вторых, Вы забыли определить какими примитивами разрешено пользоваться.
А то ведь, можно и так:

PROCEDURE Move (VAR src, dst, sum: REAL): BOOLEAN;
BEGIN
  IF src >= sum THEN
    src := src - sum;
    dst := dst + sum;
...