А. А. Медатов, М. К. Абдувохидов, О. А. Маматқулов

var
<тип номи>:<минимал қиймат>..<максимал қиймат>;
ёки
type
<тип номи>=<минимал қиймат>..<максимал қиймат>;
type - тип мазмунини билдиради.

Масалан,
var

javob=1..5;
ёки
type
oy=1..12; qкa=Plus..Minus;

Масала. 1 дан 5 гача бўлган сонларни киритиш ва чиқариш дастури тузилсин.

program diapason;
var
j:1..5; {Агар OptionsCompilerRange checking o`rnatilgan bo`lsa, j 1 dan 5 gacha bo`lgan qiymatlar qabul qila oladi}
i:char;
begin
repeat
write(‘Javoblar tartibi N:’); readln(j);
writeln(‘Kiritilgan raqam=‘,j);
write(‘Qaytarasizmi-(yn)?'); readln(i);
until UpCase(i)<>‘Y’;
end.
Бунда UpCase содда процедура бўлиб, қавс ичидаги белгини катта (бош) белгига айлантиради.

2. Саноқли тип ҳам ностандарт типлар туркумига киради. саноқли тип ўз номига ва уни ташкил этувчи элементларидан (идентификаторларидан) иборат бўлади. Идентификатор кичик қавс ичига ёзилади ва бир-биридан вергул орқали ажратиб ёзилади.

Бичими:
type
<исми>=(<идентификатор1>,<идентдификатор2>,...,<идентификаторk>)

Саноқли тип идентификаторини ёзилишида унинг тартиби мухим ахамият касб этади. Чунки биринчи идентификаторга 0, иккинчисига 1,...., k-чисига k-1 тартиб номерлари берилади.

Ord(х) - функцияси идентификаторнинг тартиб номерини белгилайди.
Масалан:
type
Hafta=(Dushanba,Seshanba,Chorshanba,Payshanba,Juma, Shanba,Yakshanba);

3. Мантиқий тип (Boolean) саноқли типининг хусусий ҳоли ҳисобланади, чунки у true ёки false қийматни қабул қила олади. Масалан,

type
boolеan=(true,false)


Масала. Ихтиерий йил ойларидаги кунлар сонини аниқлаш дастури тузилсин.


program kabisa;
type
оy=(jan,feb,mart,apr,maj,iyun,iyul,avg,sent,okt,noya, deк);