Мне приснился сон на Паскале. 

for i:=2 to 12(эт я так сплю, ага) do

begin

показывать сны;

if сон повторяется then

следующий сон;

end.

Завязывать пора с этим делом, даа...