begin
gotoxy(w,h);
write(c4);
end;
gotoxy(w,h);
Возможно вы искали - Курсовая работа: Создать меню без файла описания ресурсов с помощью функций CreateMenu и CreatePopupMenu
write(c3);
for w:=78 downto 1 do
begin
gotoxy(w,h);
write(c2);
Похожий материал - Курсовая работа: Создание меню без файла описания ресурсов на основе функции LoadMenuIndirect
end;
gotoxy(w,h);
write(c1);
gotoxy(1,20);
write(c7);
Очень интересно - Доклад: Пример проектирования базы данных Библиотека
for w:=2 to 59 do
begin
gotoxy(w,20);
write(c2);
end;
Вам будет интересно - Доклад: Образование и сеть
gotoxy(w,1);
write(c10);
for h:=2 to 24 do
begin
gotoxy(w,h);
Похожий материал - Реферат: Использование пакета Web - Oracle -Web WOW
write(chr(179));
end;
gotoxy(w,20);
write(c8);