А еще есть листинг пьянки прогамистов:
Procedure Drinks;
Begin

Open(Bottles);
Repeat
Drink(Next(Gramms100));
Zakus:=Eat(Next(Foods));
Until TwoViewInEyes;
End;{ Drinks }