program inimă_disperată_rog_seriozitate;
uses sentimentalisme;
var întunecare, fum: sunt eu;
iubire:=oare[da...nu] of persoana mea;
viața mea, apus de soare:=boolean;
begin(nașterea)
aici sunt eu;
aici e viața mea;
write('întunecare='); readln(întunecare);
write('fum='); readln(fum);
pentru mine viața e un program în Borland Pascal do
begin(nunta)
write('iubire[',ea,']');
readln(iubire[ea]);
end(divorțul);
viața mea, apus de soare:=True;
if viața mea, apus de soare=True then write('mai are vreun rost?')
else write('taci taci minți va fi numai bine');
readln(pe naiba);
end(apusul).