[dimka_sh]

Существует программа такого типа:

PROGRAM PR1;
USES crt;
PROCEDURE proc1;
bEGIn
...
END;
PROCEDURE proc2;
BEGIN
...
END;
PROCEDURE proc3;
BEGIN
...
END;
PROCEDURE proc4;
BEGIN
c:=readkey;
case с of
'1' : proc1;
'2' : proc2;
'3' : proc3;
end;
END;

{В самой проге запускается процедура proc4}
BEGIN
proc4;
END.

Как сделать так, чтобы в самом конце proc1, proc2 и proc3 вызывалась процедура proc4. Если ее описать выше, то она будет вызываться, но в самой proc4 не будут вызываться proc1, proc2 и proc3, а если ниже, то эти процедуры вызываются, но в каждой из них не вызывается proc4;

Что делать? Как быть?