Ce va afisa pe ecran programul ce urmeaza?


program T7;

type pasare = (paun,vrabie,cocor,lebada);

var x:pasare;

begin

x:=cocor;

writeln(ord (pred(x));

writeln(ord(lebada));

writeln(ord(1));

writeln(succ(false));

writeln(chr(65));

end.


URGEENT!!