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