Например, русские сказки :)
while репка не вытащена do
begin
добавить еще одного участника;
тянуть-потянуть;
end;
кричать ('Вытянули репку!!!');
end.
while не встретилась лиса do
begin
катиться-покатиться;
встретить зверя в лесу;
спеть о том, как от бабушки ушёл и от дедушки ушёл;
спеть о том, как от всех предыдущих зверей ушёл;
пообещать и подавно уйти;
покатиться дальше;
end;
попасть лисе на зубок;
end.