با سلام
چرا این برنامه در محیط pascal استاندارد هم error نمیده ! مگه succ d . بعد اینکه 3 بار حلقه اجرا میشه برای بار 4 رم خارج از محدوده نوع شمارشی من نمیشه ؟
type day=(adine,shanbe,yekshanbe);
var
d:day;
begin
d:=adine;
while ord(d)<7 do
begin
write(ord(d));
d:=succ(d);
end;
end.
خروجی 0123456 میشه !!!!!!