Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
uses prog;
begin
repeat
MakeList;
Max;
HeaderX(33,'‹ Ў®а в®а п 11');
Menu(3,3,17,12,7,M);
WriteF;
until False;
end.
begin
repeat
MakeList;
Max;
HeaderX(33,'‹ Ў®а в®а п 11');
Menu(3,3,17,12,7,M);
WriteF;
until False;
end.