{ %fail }

program Project1;

var
  i: Longint;
begin
  i := 2 div 0;
end.