Label b; {метка}
Var {тело}
Programname,Cmdline:string;
nn,i,x,y:integer;
f1,f1_new:text;
Возможно вы искали - Курсовая работа: Создать меню без файла описания ресурсов с помощью функций CreateMenu и CreatePopupMenu
Name,New_name:string[12];
txt,text:string;
ch:char;
begin
i:=1;
Похожий материал - Курсовая работа: Создание меню без файла описания ресурсов на основе функции LoadMenuIndirect
textbackground(red);
clrscr;
textcolor(yellow);
gotoxy(22,10);
writeln('Текстовый процессор Timofeev Word');
Очень интересно - Доклад: Пример проектирования базы данных Библиотека
gotoxy(22,11);
writeln(' Версия 1.0 (2001 год)');
gotoxy(40,15);
writeln('Составил Тимофеев Тимур (2-АС-3)');
textcolor(green);
Вам будет интересно - Доклад: Образование и сеть
gotoxy(40,16);
writeln('Все права защищены.');
gotoxy(40,17);
writeln('Незаконное копирование');
gotoxy(40,18);
Похожий материал - Реферат: Использование пакета Web - Oracle -Web WOW
writeln('или подделка без согласия автора');
gotoxy(40,19);
writeln('преследуется по понятиям !!!');
delay(5000);