Что это такое...?

[Mysteryqt]

Ждем обединения

randomize;
day:=7;
x:=random(day);
write (x);
end.