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

СГ>>А то ведь, можно и так:

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

A>Ага! И полюбому зачисляем на счёт-приёмник сумму. Здорово. Все бы так уже богачами были.

Напоминаю синтаксис инструкции IF языков Modula/Oberon/Component Pascal:

IF ... THEN ... END
IF ... THEN ... ELSE ... END
IF ... THEN ... ELSIF ... THEN ... END
IF ... THEN ... ELSIF ... THEN ... ELSIF ... THEN ... END
...

т.е. в конце инструкции стоит END