Курсовая работа: Программы в среде Turbo Pascal

write (‘Название своего универа ');

gotoxy (27,8);

write ('ФИЛИАЛ ______________);

gotoxy (33,10);

write ('КУРСОВАЯ РАБОТА');

gotoxy (19,11);

write ('по дисциплине информатика и программирование');

gotoxy (17,12);

write ('на тему создание прикладного программного обеспечения');

gotoxy (22,13);

write ('в среде программирования Turbo Pascal');

gotoxy (45,15);

write ('Работу выполнила: студентка');

gotoxy (45,16);

write (‘_____ курса группы ______');

gotoxy (45,17);

write (‘ФИО);

gotoxy (45,18);

write ('Работу проверил: ');

gotoxy (45,19);

write ('преподаватель кафедры ПИ');

gotoxy (45,20);

write (ФИОпрепода.');

readkey;

end;

{Процедура экранная форма меню}

procedure Menu;

begin

TextBackGround(white); {тутможешьменятьцвета}