Задача 1
Что будет
выведено на экран в результате выполнения программы:
type ned = (pn,vt,sr,ct,pt,sb,vs);
var den: ned;
begin
den:=vt;
write(succ(den);
write(ord(den)+3;
readln;
end.
Задача 2
Что будет
выведено на экран в результате выполнения программы:
type color = (black,white,red,green,blue,yellow);
var c: color;
begin
c:=(ord(red)+2);
write(c);
readln;
end.
