Здравствуйте, Сергей Губанов, Вы писали:

СГ>Здравствуйте, 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

А вот и нет в паскале только 1 оператор в модуле тоже
нужно писать BEGIN END
ві наверное на VB перепрограммировали.