// Посмотрите, как выглядит ошибка выполнения при целочисленном делении на 0
var i: integer := 0;
begin
write(2 div i);
end.