Program menggunakan ordinalitas

Type hari = (senin, selasa, rabu);
Var kd_hari : hari;
begin
kd_hari := selasa;
write (ORD(kd_hari));
end.

output:
1