Programe_in_style_Pseudo_Pascal

In style pseudo pascal:

procedure being busy


for i := 1 to 100 things to do
watching a movie_what i see is so true;
if i is divisible by 3 read "Freud";
set academic procrastination_thinking is false;
if i is not divisible at all read "Deleuze";
set body without organs_critique is false;
if i_become,be i;
start a new life; movie
end