Мой друг проводил в РосГосГум Университете лингвистическую олимпиаду для школьников. Ближе к вечеру все дела сделаны: олимпиаду они провели, все работы проверили, сидят, делятся впечатлениями. А первое задание задание у них было - перевести на все известные иностранные языки фразу "Если б я был султан, я б имел трех жен.". Ну,
естественно, наиболее часто встречаются варианты на английском,
немецком и французском языках. Иногда попадаются на итальянском и
испанском. Есть пара вариантов на украинском и на японском. И есть один на ПАСКАЛЕ. Выглядит так:
BEGIN if (I=Sultan) then begin Get(First_Wife); Get(Second_Wife); Get(Third_Wife); end; END.