Вл
Владимир
Обычно это циклом делается
Вызвать функцию нужного пункта меню.
примени к своим программам
program uravn;
uses crt;
var
k,n:integer;
a,b,c,d,x1,x2:real;
BEGIN
repeat
clrscr;
writeln;
WRITELN('ЙНННННННННННННННННН» ');
WRITELN('є MENU є');
WRITELN('МНННННННННННННННННН№');
WRITELN('є 1.proc1 є');
WRITELN('є 2.proc2 є');
WRITELN('є 3.proc3 є');
WRITELN('є 4.exit є');
WRITELN('МНННННННННННННННННН№');
WRITELN('є vash vibor ? є');
WRITEln('ИННННННННННННННННННј');
gotoxy(16,10); readln(k);
case k of
1:;
2:;
3:;
4:;
else begin
writeln( 'net takogo punkta');
readln; end;
end; {case}
until k=4;
writeln;
writeln('end programm');
readln;
END.