По литере-цифре присвоить переменной название этой цифры

Присвоить переменной m1 название месяца, следующего за месяцем m (с учетом того, что за декабрем идет январь)
type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec); day = 1..31; var m1, m2: mes;...

Присвоить переменной n название этой цифры
Помогите пожалуйста с задачей Дано описание: type название=(ноль,один,два, три, четыре,пять); var d: '0'..'5' n: название;. ...

По литеру (согласной букве) присвоить переменной d название этой буквы
Примеры объявления Months=(Jen , Fab , Mar , Apr , May, Jun , Jul , Aug , Sep , Oct , Nov , Dek ) ; По литеру (согласной букве)...

Присвоить переменной название последнего из городов, название которого содержит более 4 букв
Код Pascal 1Задан список городов. Присвоить переменной Т название последнего из городов, название которого содержит более 4 букв.

Присвоить переменной m1 название месяца, следующего за месяцем m
1) Дано описание: type месяц = (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); var m, m1: месяц; n:1..12; Присвоить...

Присвоить целой переменной h значение цифры
Присвоить целой переменной h значение цифры, стоящей в разряде сотен в записи положительного целого числа k (например, если k=28796, то h=7)

Присвоить переменной квадрат четвертой с конца цифры
Присвоить переменной квадрат четвертой с конца цифры(4-значное число)

Присвоить переменной Х значение первой цифры из дробной части положительного вещественного числа.
uses crt; var a,b:real; begin clrscr; write('Введите число '); readln(a); b:=(a mod 1); b:= (b div 10); writeln(b); ...