Блондинка

програм Блондинка (инпут, оутрут);

вар це:булеан;

стр:стринг;

нам,настроение:интеджер;

функция очень_важное_решение(условие1, условие2; вар ответ це:булеан) : булеан;

бегин

думать(условие1);

думать(условие2);

думать(условие1, условие2);

спросить_у_более_умных;

це:='может быть'

енд;

процедура отсебячина;

бегин

врайтлн(рандом_стр)

энд;

функуция пока_не_надоело(нам:интеджер):булеан;

бегин

настроение:=настроение+нам;

иф настроение