Определить, какое значение будет в переменной Sorry в конце выполнения следующей программы.
Program AA;
type
QQ = (qq1, qq2, qq3, qq4, qq5, qq6, qq7, qq8, qq9);
RR = (qq1 .. qq7);
OO = (qq5 .. qq9);
var
Sorry : QQ;
RX : RR;
OX : OO;
begin
Sorry:=qq1;
for RX:=qq1 to qq2 do
for OX:=qq5 to qq7 do Sorry:=succ(Sorry)
end.