Нав'язувать ментальність нелогічно
Program GoodEvening;

Var

d:boolean

begin

d:= (" Паскудное настроение";);

begin

if d then

drink (0,5);

else sing (’ Во поле березка стояла’);

end;

end.







А вот пробелы не ставяться. Паскудно.