[Bargest]

Когда был в 11м классе придумал с другом одну задачку. Не то, чтоб шибко сложную, скорее просто прикольную. Вспомнилась в связи с одним недавним постом на этом форуме.

Код:

{$APPTYPE CONSOLE}

uses Dialogs;

procedure SuperProc(var a, b: integer);
begin
 a := 1;
 b := 2;
 if (a=1) then 
    exit
 else 
    ShowMessage('Epic FAIL!');
end;

...

Суть: написать программу с использованием этой процедуры (не внося изменений в неё) так, чтобы процедура выдала сообщение 'Epic FAIL!'. Грубо говоря, писать код можно только на месте многоточия.