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

6 lines
66 B
Plaintext

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