RosettaCodeData/Task/Flow-control-structures/Pascal/flow-control-structures-2.pas

try
  Z := DoDiv (X,Y);
except
  on EDivException do Z := 0;
end;