Ce va afisa pe ecran programul P63?

Program P63;
type Zi=(L,Ma,Mi,J,V,S,D);
var z : Zi;
begin
for z:=L to S do writeln(ord(z));
readln;
for z:=D downto Ma do writeln(ord(z));
readln;
end.