Для чого призначеного список розсилання?

У атрибута form есть несколько тэгов: 
accept-charset - Устанавливает кодировку, в которой сервер может принимать и обрабатывать данные.
action - Адрес программы или документа, который обрабатывает данные формы. 
autocomplete - Включает автозаполнение полей формы.
кодирования данных формы.methodМетод протокола HTTP.
name - Имя формы.
novalidate - Отменяет встроенную проверку данных формы на корректность ввода.targetИмя окна или фрейма, куда обработчик будет загружать возвращаемый результат.
В зависимости от тэга выбираем значение

Uses Crt;

Procedure R(Nazvanie:string; Cvet:byte);
Begin
TextBackground(Cvet);
ClrScr;
GotoXY(WindowWidth div 2-Length(Nazvanie) div 2,WindowHeight div 2);
Write(Nazvanie);
End;

Var n:byte;
Begin
HideCursor;
TextBackground(0);
ClrScr;
TextColor(15);
GotoXY(WindowWidth div 2-12,WindowHeight div 2);
Write('Введите номер дня недели');
Case ReadKey of
'1':
    R('Понедельник',4);
'2':
    R('Вторник',14);
'3':
    R('Среда',2);
'4':
    R('Четверг',9);
'5':
    R('Пятница',1);
'6':
    R('Суббота',13);
'7':
    R('Воскресенье',12);
else R('В неделе сейчас семь дней!',0);
End;
ReadKey
End.