Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
uses
Unit36, Crt;
begin
repeat
Menu;
case ReadKey of
'1': Viewing;
'2': Additing;
'3': Editing;
'4': Deleting;
'5': Searching;
'6': Sorting;
#27: exit;
end;
Until 1<>1
end.
Unit36, Crt;
begin
repeat
Menu;
case ReadKey of
'1': Viewing;
'2': Additing;
'3': Editing;
'4': Deleting;
'5': Searching;
'6': Sorting;
#27: exit;
end;
Until 1<>1
end.