10 lines
138 B
ObjectPascal
10 lines
138 B
ObjectPascal
|
##
|
||
|
|
var x := 1;
|
||
|
|
var y := 0;
|
||
|
|
try
|
||
|
|
var z := x div y;
|
||
|
|
except
|
||
|
|
on System.DivideByZeroException do
|
||
|
|
writeln('Integer division by 0');
|
||
|
|
end;
|