Сообщение от Димыч

var mood, action, weather : string;
case (mood) of
'full of energy' : if (weather='fine') then action:='go to ski' else action:='programming';
'tired' : action:='sleep';
'sad and bad' : action:='drink';
'drunk' : action:='read a russian.fi';
else
repeat
drink;
until (mood='drunk')
end;