программа действий на июнь

[bytheclouds]

var June: integer; to_do: string;

begin
for June:=1 to 30 do begin
if June=16 then to_do:='drink'
else if June=21 then to_do:='see Death in June'
else
to_do:='be hungry';
end;
end.

А паскаль - любовь моего детства, так что не надо тут.