OberonCore

(*программа делит числа больше ноля.Если ноль и меньше: выдаёт звуковой сигнал и сообщение.После 3 подряд неправльных попыток зависает на 5 мин
СЧЁТЧИК НЕ СЧИТАЕТ*)
MODULE MyCalc1;
IMPORT Dialog, L :=StdLog, In, Math;

VAR
a*, b*, рез- : REAL;
i, счётчик- : INTEGER;
PROCEDURE Делить*;

BEGIN
In.Open; L.Clear;In.Real(a );In.Real( b);
счётчик := 0;
IF (a <= 0) OR (b <= 0) THEN счётчик :=счётчик + 1; L.String("введите число больше ноля");
Dialog.Beep;
Dialog.UpdateInt(счётчик);
L.Int( счётчик);
IF счётчик = 3 THEN L.String("попробуйте через 5 мин")
ELSE
счётчик := 0;
рез := a / b;
рез := Math.Round (рез * 100)/100;
L.Real( рез);
Dialog.UpdateReal(рез);

END;END;
END Делить;

END MyCalc1 .
MyCalc1.Делить 6 0

Так вы же его при каждом вызове сбрасываете в ноль первым делом.

А ещё у вас один из END'ов в неправильном месте стоит (должен быть перед ELSE).

Спасибо за поправку с эндом.

Раньше счётчиком я считал количество определённых операций, которое делает программа.
Первый раз столкнулся с задачей, где надо считать мои попытки.

MODULE CpCalcHello;
IMPORT StdLog;
VAR i : INTEGER;

PROCEDURE Сделать*;
BEGIN
INC(i);
StdLog.String("Привет всем!"); StdLog.Ln
END Сделать;

PROCEDURE Calc*;
BEGIN
StdLog.Int(i);
END Calc;

END CpCalcHello.

CpCalcHello.Сделать
нажимаю несколько раз
CpCalcHello.Calc
счётчик считает